/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / cl / cl-macs.elc.z / cl-macs.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 37 3a 31 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:47:16 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 63 6c 2f 63 |s-20.3/l|isp/cl/c|
|000000a0| 6c 2d 6d 61 63 73 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |l-macs.e|l.;;; em|
|000000b0| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 32 30 2e 34 |acs vers|ion 20.4|
|000000c0| 20 22 45 6d 65 72 61 6c | 64 22 20 58 45 6d 61 63 | "Emeral|d" XEmac|
|000000d0| 73 20 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |s  Lucid|..;;; by|
|000000e0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000f0| 2e 32 35 20 58 45 6d 61 | 63 73 3b 20 32 32 2d 4d |.25 XEma|cs; 22-M|
|00000100| 61 72 2d 39 36 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ar-96..;|;; optim|
|00000110| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000120| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000130| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000140| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000150| 45 6d 61 63 73 20 31 39 | 2e 0a 0a 28 69 66 20 28 |Emacs 19|...(if (|
|00000160| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000170| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000180| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000190| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|000001a0| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|000001b0| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |.     (s|tring-le|
|000001c0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001d0| 6e 20 22 32 30 22 29 29 | 29 0a 20 20 20 20 28 65 |n "20"))|).    (e|
|000001e0| 72 72 6f 72 20 22 60 63 | 6c 2d 6d 61 63 73 2e 65 |rror "`c|l-macs.e|
|000001f0| 6c 27 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |l' was c|ompiled |
|00000200| 66 6f 72 20 45 6d 61 63 | 73 20 32 30 22 29 29 0a |for Emac|s 20")).|
|00000210| 0a 28 6f 72 20 28 62 6f | 75 6e 64 70 20 27 63 75 |.(or (bo|undp 'cu|
|00000220| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 29 |rrent-lo|ad-list)|
|00000230| 20 28 73 65 74 71 20 63 | 75 72 72 65 6e 74 2d 6c | (setq c|urrent-l|
|00000240| 6f 61 64 2d 6c 69 73 74 | 20 6e 69 6c 29 29 0a 0a |oad-list| nil))..|
|00000250| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 09 73 |.(byte-c|ode "..s|
|00000260| ac 84 c2 c3 21 88 c0 87 | 22 20 5b 63 6c 2d 31 39 |....!...|" [cl-19|
|00000270| 20 66 65 61 74 75 72 65 | 73 20 65 72 72 6f 72 20 | feature|s error |
|00000280| 22 54 72 69 65 64 20 74 | 6f 20 6c 6f 61 64 20 60 |"Tried t|o load `|
|00000290| 63 6c 2d 6d 61 63 73 27 | 20 62 65 66 6f 72 65 20 |cl-macs'| before |
|000002a0| 60 63 6c 27 21 22 5d 20 | 32 29 0a 28 64 65 66 61 |`cl'!"] |2).(defa|
|000002b0| 6c 69 61 73 20 27 63 6c | 2d 70 75 73 68 20 27 28 |lias 'cl|-push '(|
|000002c0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 78 20 70 6c 61 |macro . |#[(x pla|
|000002d0| 63 65 29 20 22 c0 09 c2 | 0b 09 45 45 87 22 20 5b |ce) "...|..EE." [|
|000002e0| 73 65 74 71 20 70 6c 61 | 63 65 20 63 6f 6e 73 20 |setq pla|ce cons |
|000002f0| 78 5d 20 35 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |x] 5])).|(defalia|
|00000300| 73 20 27 63 6c 2d 70 6f | 70 20 27 28 6d 61 63 72 |s 'cl-po|p '(macr|
|00000310| 6f 20 2e 20 23 5b 28 70 | 6c 61 63 65 29 20 22 c0 |o . #[(p|lace) ".|
|00000320| c1 5c 6e c3 5c 6e c4 5c | 6e 44 45 45 44 87 22 20 |.\n.\n.\|nDEED." |
|00000330| 5b 63 61 72 20 70 72 6f | 67 31 20 70 6c 61 63 65 |[car pro|g1 place|
|00000340| 20 73 65 74 71 20 63 64 | 72 5d 20 37 5d 29 29 0a | setq cd|r] 7])).|
|00000350| 28 64 65 66 61 6c 69 61 | 73 20 27 63 6c 2d 70 6f |(defalia|s 'cl-po|
|00000360| 70 32 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |p2 '(mac|ro . #[(|
|00000370| 70 6c 61 63 65 29 20 22 | c0 c1 c2 0b 44 44 c4 0b |place) "|....DD..|
|00000380| c2 89 0b 44 44 45 45 87 | 22 20 5b 70 72 6f 67 31 |...DDEE.|" [prog1|
|00000390| 20 63 61 72 20 63 64 72 | 20 70 6c 61 63 65 20 73 | car cdr| place s|
|000003a0| 65 74 71 5d 20 37 5d 29 | 29 0a 28 62 79 74 65 2d |etq] 7])|).(byte-|
|000003b0| 63 6f 64 65 20 22 c0 c1 | c2 c3 23 88 c0 c4 c2 c3 |code "..|..#.....|
|000003c0| 23 88 c0 c5 c2 c3 23 88 | c6 0e 07 42 16 07 c8 0e |#.....#.|...B....|
|000003d0| 07 42 16 07 c9 0e 07 42 | 16 07 ca cb cc 21 ac 84 |.B.....B|.....!..|
|000003e0| cc cd 4d 88 cb ce 21 ac | 85 cc ce cf 5c 22 88 0e |..M...!.|....\"..|
|000003f0| 10 ae 85 d1 43 89 16 10 | 40 21 88 d2 d3 21 ac 83 |....C...|@!...!..|
|00000400| d4 16 13 d3 0e 07 42 16 | 07 d4 87 22 20 5b 70 75 |......B.|..." [pu|
|00000410| 74 20 63 6c 2d 70 75 73 | 68 20 65 64 65 62 75 67 |t cl-pus|h edebug|
|00000420| 2d 66 6f 72 6d 2d 73 70 | 65 63 20 65 64 65 62 75 |-form-sp|ec edebu|
|00000430| 67 2d 73 65 78 70 73 20 | 63 6c 2d 70 6f 70 20 63 |g-sexps |cl-pop c|
|00000440| 6c 2d 70 6f 70 32 20 63 | 6c 2d 65 6d 61 63 73 2d |l-pop2 c|l-emacs-|
|00000450| 74 79 70 65 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |type cur|rent-loa|
|00000460| 64 2d 6c 69 73 74 20 63 | 6c 2d 6f 70 74 69 6d 69 |d-list c|l-optimi|
|00000470| 7a 65 2d 73 61 66 65 74 | 79 20 63 6c 2d 6f 70 74 |ze-safet|y cl-opt|
|00000480| 69 6d 69 7a 65 2d 73 70 | 65 65 64 20 72 65 71 75 |imize-sp|eed requ|
|00000490| 69 72 65 20 66 62 6f 75 | 6e 64 70 20 64 65 66 61 |ire fbou|ndp defa|
|000004a0| 6c 69 61 73 20 66 73 65 | 74 20 63 6c 2d 74 72 61 |lias fse|t cl-tra|
|000004b0| 6e 73 66 6f 72 6d 2d 66 | 75 6e 63 74 69 6f 6e 2d |nsform-f|unction-|
|000004c0| 70 72 6f 70 65 72 74 79 | 20 23 5b 28 6e 20 70 20 |property| #[(n p |
|000004d0| 66 29 20 22 c0 c1 5c 6e | 44 c1 0b 44 c4 c5 0e 06 |f) "..\n|D..D....|
|000004e0| 42 44 46 87 22 20 5b 70 | 75 74 20 71 75 6f 74 65 |BDF." [p|ut quote|
|000004f0| 20 6e 20 70 20 66 75 6e | 63 74 69 6f 6e 20 6c 61 | n p fun|ction la|
|00000500| 6d 62 64 61 20 66 5d 20 | 36 5d 20 66 65 61 74 75 |mbda f] |6] featu|
|00000510| 72 65 73 20 63 6c 2d 6b | 6c 75 64 67 65 20 62 6f |res cl-k|ludge bo|
|00000520| 75 6e 64 70 20 63 6c 2d | 6f 6c 64 2d 62 63 2d 66 |undp cl-|old-bc-f|
|00000530| 69 6c 65 2d 66 6f 72 6d | 20 6e 69 6c 5d 20 34 29 |ile-form| nil] 4)|
|00000540| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6c 2d 63 |.(defali|as 'cl-c|
|00000550| 6f 6d 70 69 6c 65 2d 74 | 69 6d 65 2d 69 6e 69 74 |ompile-t|ime-init|
|00000560| 20 23 5b 6e 69 6c 20 22 | c0 4b 11 c2 c3 21 ac 85 | #[nil "|.K...!..|
|00000570| c4 c0 c5 5c 22 88 c6 c7 | c8 c9 23 88 ca cb 21 87 |...\"...|..#...!.|
|00000580| 22 20 5b 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |" [byte-|compile-|
|00000590| 66 69 6c 65 2d 66 6f 72 | 6d 20 63 6c 2d 6f 6c 64 |file-for|m cl-old|
|000005a0| 2d 62 63 2d 66 69 6c 65 | 2d 66 6f 72 6d 20 66 62 |-bc-file|-form fb|
|000005b0| 6f 75 6e 64 70 20 62 79 | 74 65 2d 63 6f 6d 70 69 |oundp by|te-compi|
|000005c0| 6c 65 2d 66 6c 75 73 68 | 2d 70 65 6e 64 69 6e 67 |le-flush|-pending|
|000005d0| 20 64 65 66 61 6c 69 61 | 73 20 23 5b 28 66 6f 72 | defalia|s #[(for|
|000005e0| 6d 29 20 22 c0 09 5c 6e | 5c 22 89 11 a2 c3 61 ab |m) "..\n|\"....a.|
|000005f0| 88 c3 c4 c5 09 41 5c 22 | 42 87 0e 06 09 21 87 22 |.....A\"|B....!."|
|00000600| 20 5b 6d 61 63 72 6f 65 | 78 70 61 6e 64 20 66 6f | [macroe|xpand fo|
|00000610| 72 6d 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |rm byte-|compile-|
|00000620| 6d 61 63 72 6f 2d 65 6e | 76 69 72 6f 6e 6d 65 6e |macro-en|vironmen|
|00000630| 74 20 70 72 6f 67 6e 20 | 6d 61 70 63 61 72 20 62 |t progn |mapcar b|
|00000640| 79 74 65 2d 63 6f 6d 70 | 69 6c 65 2d 66 69 6c 65 |yte-comp|ile-file|
|00000650| 2d 66 6f 72 6d 20 63 6c | 2d 6f 6c 64 2d 62 63 2d |-form cl|-old-bc-|
|00000660| 66 69 6c 65 2d 66 6f 72 | 6d 5d 20 35 5d 20 70 75 |file-for|m] 5] pu|
|00000670| 74 20 65 71 6c 20 62 79 | 74 65 2d 63 6f 6d 70 69 |t eql by|te-compi|
|00000680| 6c 65 20 63 6c 2d 62 79 | 74 65 2d 63 6f 6d 70 69 |le cl-by|te-compi|
|00000690| 6c 65 2d 63 6f 6d 70 69 | 6c 65 72 2d 6d 61 63 72 |le-compi|ler-macr|
|000006a0| 6f 20 72 75 6e 2d 68 6f | 6f 6b 73 20 63 6c 2d 68 |o run-ho|oks cl-h|
|000006b0| 61 63 6b 2d 62 79 74 65 | 63 6f 6d 70 2d 68 6f 6f |ack-byte|comp-hoo|
|000006c0| 6b 5d 20 34 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |k] 4]).(|byte-cod|
|000006d0| 65 20 22 c0 09 42 11 c0 | 87 22 20 5b 2a 67 65 6e |e "..B..|." [*gen|
|000006e0| 73 79 6d 2d 63 6f 75 6e | 74 65 72 2a 20 63 75 72 |sym-coun|ter* cur|
|000006f0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 5d 20 |rent-loa|d-list] |
|00000700| 32 29 0a 23 40 39 38 20 | 47 65 6e 65 72 61 74 65 |2).#@98 |Generate|
|00000710| 20 61 20 6e 65 77 20 75 | 6e 69 6e 74 65 72 6e 65 | a new u|ninterne|
|00000720| 64 20 73 79 6d 62 6f 6c | 2e 0a 54 68 65 20 6e 61 |d symbol|..The na|
|00000730| 6d 65 20 69 73 20 6d 61 | 64 65 20 62 79 20 61 70 |me is ma|de by ap|
|00000740| 70 65 6e 64 69 6e 67 20 | 61 20 6e 75 6d 62 65 72 |pending |a number|
|00000750| 20 74 6f 20 50 52 45 46 | 49 58 2c 20 64 65 66 61 | to PREF|IX, defa|
|00000760| 75 6c 74 20 22 47 22 2e | 1f 0a 28 64 65 66 61 6c |ult "G".|..(defal|
|00000770| 69 61 73 20 27 67 65 6e | 73 79 6d 20 23 5b 28 26 |ias 'gen|sym #[(&|
|00000780| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 22 08 |optional| arg) ".|
|00000790| 3b ab 83 08 aa 81 c1 08 | a8 ab 83 08 aa 84 5c 6e |;.......|......\n|
|000007a0| 89 54 12 1b 1c c5 c6 c7 | 0c 0b 23 21 2a 87 22 20 |.T......|..#!*." |
|000007b0| 5b 61 72 67 20 22 47 22 | 20 2a 67 65 6e 73 79 6d |[arg "G"| *gensym|
|000007c0| 2d 63 6f 75 6e 74 65 72 | 2a 20 6e 75 6d 20 70 72 |-counter|* num pr|
|000007d0| 65 66 69 78 20 6d 61 6b | 65 2d 73 79 6d 62 6f 6c |efix mak|e-symbol|
|000007e0| 20 66 6f 72 6d 61 74 20 | 22 25 73 25 64 22 5d 20 | format |"%s%d"] |
|000007f0| 35 20 28 23 24 20 2e 20 | 31 38 30 30 29 5d 29 0a |5 (#$ . |1800)]).|
|00000800| 23 40 31 31 35 20 47 65 | 6e 65 72 61 74 65 20 61 |#@115 Ge|nerate a|
|00000810| 20 6e 65 77 20 69 6e 74 | 65 72 6e 65 64 20 73 79 | new int|erned sy|
|00000820| 6d 62 6f 6c 20 77 69 74 | 68 20 61 20 75 6e 69 71 |mbol wit|h a uniq|
|00000830| 75 65 20 6e 61 6d 65 2e | 0a 54 68 65 20 6e 61 6d |ue name.|.The nam|
|00000840| 65 20 69 73 20 6d 61 64 | 65 20 62 79 20 61 70 70 |e is mad|e by app|
|00000850| 65 6e 64 69 6e 67 20 61 | 20 6e 75 6d 62 65 72 20 |ending a| number |
|00000860| 74 6f 20 50 52 45 46 49 | 58 2c 20 64 65 66 61 75 |to PREFI|X, defau|
|00000870| 6c 74 20 22 47 22 2e 1f | 0a 28 64 65 66 61 6c 69 |lt "G"..|.(defali|
|00000880| 61 73 20 27 67 65 6e 74 | 65 6d 70 20 23 5b 28 26 |as 'gent|emp #[(&|
|00000890| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 22 08 |optional| arg) ".|
|000008a0| 3b ab 83 08 aa 81 c1 c2 | 1b 1c c5 c6 c7 0c 0e 08 |;.......|........|
|000008b0| 23 89 13 21 ab 87 0e 08 | 54 16 08 aa 6d c9 0b 21 |#..!....|T...m..!|
|000008c0| 2a 87 22 20 5b 61 72 67 | 20 22 47 22 20 6e 69 6c |*." [arg| "G" nil|
|000008d0| 20 6e 61 6d 65 20 70 72 | 65 66 69 78 20 69 6e 74 | name pr|efix int|
|000008e0| 65 72 6e 2d 73 6f 66 74 | 20 66 6f 72 6d 61 74 20 |ern-soft| format |
|000008f0| 22 25 73 25 64 22 20 2a | 67 65 6e 73 79 6d 2d 63 |"%s%d" *|gensym-c|
|00000900| 6f 75 6e 74 65 72 2a 20 | 69 6e 74 65 72 6e 5d 20 |ounter* |intern] |
|00000910| 35 20 28 23 24 20 2e 20 | 32 30 35 34 29 5d 29 0a |5 (#$ . |2054)]).|
|00000920| 23 40 31 39 39 20 28 64 | 65 66 75 6e 2a 20 4e 41 |#@199 (d|efun* NA|
|00000930| 4d 45 20 41 52 47 4c 49 | 53 54 20 5b 44 4f 43 53 |ME ARGLI|ST [DOCS|
|00000940| 54 52 49 4e 47 5d 20 42 | 4f 44 59 2e 2e 2e 29 3a |TRING] B|ODY...):|
|00000950| 20 64 65 66 69 6e 65 20 | 4e 41 4d 45 20 61 73 20 | define |NAME as |
|00000960| 61 20 66 75 6e 63 74 69 | 6f 6e 2e 0a 4c 69 6b 65 |a functi|on..Like|
|00000970| 20 6e 6f 72 6d 61 6c 20 | 60 64 65 66 75 6e 27 2c | normal |`defun',|
|00000980| 20 65 78 63 65 70 74 20 | 41 52 47 4c 49 53 54 20 | except |ARGLIST |
|00000990| 61 6c 6c 6f 77 73 20 66 | 75 6c 6c 20 43 6f 6d 6d |allows f|ull Comm|
|000009a0| 6f 6e 20 4c 69 73 70 20 | 63 6f 6e 76 65 6e 74 69 |on Lisp |conventi|
|000009b0| 6f 6e 73 2c 0a 61 6e 64 | 20 42 4f 44 59 20 69 73 |ons,.and| BODY is|
|000009c0| 20 69 6d 70 6c 69 63 69 | 74 6c 79 20 73 75 72 72 | implici|tly surr|
|000009d0| 6f 75 6e 64 65 64 20 62 | 79 20 28 62 6c 6f 63 6b |ounded b|y (block|
|000009e0| 20 4e 41 4d 45 20 2e 2e | 2e 29 2e 1f 0a 28 64 65 | NAME ..|.)...(de|
|000009f0| 66 61 6c 69 61 73 20 27 | 64 65 66 75 6e 2a 20 27 |falias '|defun* '|
|00000a00| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6e 61 6d 65 |(macro .| #[(name|
|00000a10| 20 61 72 67 73 20 26 72 | 65 73 74 20 62 6f 64 79 | args &r|est body|
|00000a20| 29 20 22 c0 09 5c 6e 42 | 0b 5c 22 1c c5 0b 0c 41 |) "..\nB|.\"....A|
|00000a30| 42 42 1e 06 0c 40 ab 88 | c7 0c 40 0e 06 45 aa 82 |BB...@..|..@..E..|
|00000a40| 0e 06 2a 87 22 20 5b 63 | 6c 2d 74 72 61 6e 73 66 |..*." [c|l-transf|
|00000a50| 6f 72 6d 2d 6c 61 6d 62 | 64 61 20 61 72 67 73 20 |orm-lamb|da args |
|00000a60| 62 6f 64 79 20 6e 61 6d | 65 20 72 65 73 20 64 65 |body nam|e res de|
|00000a70| 66 75 6e 20 66 6f 72 6d | 20 70 72 6f 67 6e 5d 20 |fun form| progn] |
|00000a80| 33 20 28 23 24 20 2e 20 | 32 33 34 32 29 5d 29 29 |3 (#$ . |2342)]))|
|00000a90| 0a 23 40 32 30 32 20 28 | 64 65 66 6d 61 63 72 6f |.#@202 (|defmacro|
|00000aa0| 2a 20 4e 41 4d 45 20 41 | 52 47 4c 49 53 54 20 5b |* NAME A|RGLIST [|
|00000ab0| 44 4f 43 53 54 52 49 4e | 47 5d 20 42 4f 44 59 2e |DOCSTRIN|G] BODY.|
|00000ac0| 2e 2e 29 3a 20 64 65 66 | 69 6e 65 20 4e 41 4d 45 |..): def|ine NAME|
|00000ad0| 20 61 73 20 61 20 6d 61 | 63 72 6f 2e 0a 4c 69 6b | as a ma|cro..Lik|
|00000ae0| 65 20 6e 6f 72 6d 61 6c | 20 60 64 65 66 6d 61 63 |e normal| `defmac|
|00000af0| 72 6f 27 2c 20 65 78 63 | 65 70 74 20 41 52 47 4c |ro', exc|ept ARGL|
|00000b00| 49 53 54 20 61 6c 6c 6f | 77 73 20 66 75 6c 6c 20 |IST allo|ws full |
|00000b10| 43 6f 6d 6d 6f 6e 20 4c | 69 73 70 20 63 6f 6e 76 |Common L|isp conv|
|00000b20| 65 6e 74 69 6f 6e 73 2c | 0a 61 6e 64 20 42 4f 44 |entions,|.and BOD|
|00000b30| 59 20 69 73 20 69 6d 70 | 6c 69 63 69 74 6c 79 20 |Y is imp|licitly |
|00000b40| 73 75 72 72 6f 75 6e 64 | 65 64 20 62 79 20 28 62 |surround|ed by (b|
|00000b50| 6c 6f 63 6b 20 4e 41 4d | 45 20 2e 2e 2e 29 2e 1f |lock NAM|E ...)..|
|00000b60| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 66 6d |.(defali|as 'defm|
|00000b70| 61 63 72 6f 2a 20 27 28 | 6d 61 63 72 6f 20 2e 20 |acro* '(|macro . |
|00000b80| 23 5b 28 6e 61 6d 65 20 | 61 72 67 73 20 26 72 65 |#[(name |args &re|
|00000b90| 73 74 20 62 6f 64 79 29 | 20 22 c0 09 5c 6e 42 0b |st body)| "..\nB.|
|00000ba0| 5c 22 1c c5 0b 0c 41 42 | 42 1e 06 0c 40 ab 88 c7 |\"....AB|B...@...|
|00000bb0| 0c 40 0e 06 45 aa 82 0e | 06 2a 87 22 20 5b 63 6c |.@..E...|.*." [cl|
|00000bc0| 2d 74 72 61 6e 73 66 6f | 72 6d 2d 6c 61 6d 62 64 |-transfo|rm-lambd|
|00000bd0| 61 20 61 72 67 73 20 62 | 6f 64 79 20 6e 61 6d 65 |a args b|ody name|
|00000be0| 20 72 65 73 20 64 65 66 | 6d 61 63 72 6f 20 66 6f | res def|macro fo|
|00000bf0| 72 6d 20 70 72 6f 67 6e | 5d 20 33 20 28 23 24 20 |rm progn|] 3 (#$ |
|00000c00| 2e 20 32 37 31 31 29 5d | 29 29 0a 23 40 31 36 38 |. 2711)]|)).#@168|
|00000c10| 20 28 66 75 6e 63 74 69 | 6f 6e 2a 20 53 59 4d 42 | (functi|on* SYMB|
|00000c20| 4f 4c 2d 4f 52 2d 4c 41 | 4d 42 44 41 29 3a 20 69 |OL-OR-LA|MBDA): i|
|00000c30| 6e 74 72 6f 64 75 63 65 | 20 61 20 66 75 6e 63 74 |ntroduce| a funct|
|00000c40| 69 6f 6e 2e 0a 4c 69 6b | 65 20 6e 6f 72 6d 61 6c |ion..Lik|e normal|
|00000c50| 20 60 66 75 6e 63 74 69 | 6f 6e 27 2c 20 65 78 63 | `functi|on', exc|
|00000c60| 65 70 74 20 74 68 61 74 | 20 69 66 20 61 72 67 75 |ept that| if argu|
|00000c70| 6d 65 6e 74 20 69 73 20 | 61 20 6c 61 6d 62 64 61 |ment is |a lambda|
|00000c80| 20 66 6f 72 6d 2c 20 69 | 74 73 0a 41 52 47 4c 49 | form, i|ts.ARGLI|
|00000c90| 53 54 20 61 6c 6c 6f 77 | 73 20 66 75 6c 6c 20 43 |ST allow|s full C|
|00000ca0| 6f 6d 6d 6f 6e 20 4c 69 | 73 70 20 63 6f 6e 76 65 |ommon Li|sp conve|
|00000cb0| 6e 74 69 6f 6e 73 2e 1f | 0a 28 64 65 66 61 6c 69 |ntions..|.(defali|
|00000cc0| 61 73 20 27 66 75 6e 63 | 74 69 6f 6e 2a 20 27 28 |as 'func|tion* '(|
|00000cd0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 66 75 6e 63 29 |macro . |#[(func)|
|00000ce0| 20 22 08 a2 c1 61 ab 9e | c2 08 41 c3 5c 22 1c c5 | "...a..|..A.\"..|
|00000cf0| c1 0c 41 42 44 1e 06 0c | 40 ab 88 c7 0c 40 0e 06 |..ABD...|@....@..|
|00000d00| 45 aa 82 0e 06 2a 87 c5 | 08 44 87 22 20 5b 66 75 |E....*..|.D." [fu|
|00000d10| 6e 63 20 6c 61 6d 62 64 | 61 20 63 6c 2d 74 72 61 |nc lambd|a cl-tra|
|00000d20| 6e 73 66 6f 72 6d 2d 6c | 61 6d 62 64 61 20 63 6c |nsform-l|ambda cl|
|00000d30| 2d 6e 6f 6e 65 20 72 65 | 73 20 66 75 6e 63 74 69 |-none re|s functi|
|00000d40| 6f 6e 20 66 6f 72 6d 20 | 70 72 6f 67 6e 5d 20 33 |on form |progn] 3|
|00000d50| 20 28 23 24 20 2e 20 33 | 30 38 39 29 5d 29 29 0a | (#$ . 3|089)])).|
|00000d60| 28 64 65 66 61 6c 69 61 | 73 20 27 63 6c 2d 74 72 |(defalia|s 'cl-tr|
|00000d70| 61 6e 73 66 6f 72 6d 2d | 66 75 6e 63 74 69 6f 6e |ansform-|function|
|00000d80| 2d 70 72 6f 70 65 72 74 | 79 20 23 5b 28 66 75 6e |-propert|y #[(fun|
|00000d90| 63 20 70 72 6f 70 20 66 | 6f 72 6d 29 20 22 c0 09 |c prop f|orm) "..|
|00000da0| 5c 6e 5c 22 1b c4 c5 0b | 40 41 41 c6 c7 5c 6e 44 |\n\"....|@AA..\nD|
|00000db0| c7 0e 08 44 c9 ca 0b 41 | 42 44 46 43 23 29 87 22 |...D...A|BDFC#)."|
|00000dc0| 20 5b 63 6c 2d 74 72 61 | 6e 73 66 6f 72 6d 2d 6c | [cl-tra|nsform-l|
|00000dd0| 61 6d 62 64 61 20 66 6f | 72 6d 20 66 75 6e 63 20 |ambda fo|rm func |
|00000de0| 72 65 73 20 61 70 70 65 | 6e 64 20 28 70 72 6f 67 |res appe|nd (prog|
|00000df0| 6e 29 20 70 75 74 20 71 | 75 6f 74 65 20 70 72 6f |n) put q|uote pro|
|00000e00| 70 20 66 75 6e 63 74 69 | 6f 6e 20 6c 61 6d 62 64 |p functi|on lambd|
|00000e10| 61 5d 20 39 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |a] 9]).(|byte-cod|
|00000e20| 65 20 22 c0 11 c1 5c 6e | 42 12 c3 c4 21 ac 82 c5 |e "...\n|B...!...|
|00000e30| 14 c4 5c 6e 42 12 c6 5c | 6e 42 12 c7 5c 6e 42 12 |..\nB..\|nB..\nB.|
|00000e40| c8 5c 6e 42 12 c9 5c 6e | 42 12 ca 5c 6e 42 12 cb |.\nB..\n|B..\nB..|
|00000e50| 5c 6e 42 12 c5 87 22 20 | 5b 28 26 6f 70 74 69 6f |\nB..." |[(&optio|
|00000e60| 6e 61 6c 20 26 72 65 73 | 74 20 26 6b 65 79 20 26 |nal &res|t &key &|
|00000e70| 61 6c 6c 6f 77 2d 6f 74 | 68 65 72 2d 6b 65 79 73 |allow-ot|her-keys|
|00000e80| 20 26 61 75 78 20 26 77 | 68 6f 6c 65 20 26 62 6f | &aux &w|hole &bo|
|00000e90| 64 79 20 26 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 29 |dy &envi|ronment)|
|00000ea0| 20 6c 61 6d 62 64 61 2d | 6c 69 73 74 2d 6b 65 79 | lambda-|list-key|
|00000eb0| 77 6f 72 64 73 20 63 75 | 72 72 65 6e 74 2d 6c 6f |words cu|rrent-lo|
|00000ec0| 61 64 2d 6c 69 73 74 20 | 62 6f 75 6e 64 70 20 63 |ad-list |boundp c|
|00000ed0| 6c 2d 6d 61 63 72 6f 2d | 65 6e 76 69 72 6f 6e 6d |l-macro-|environm|
|00000ee0| 65 6e 74 20 6e 69 6c 20 | 62 69 6e 64 2d 62 6c 6f |ent nil |bind-blo|
|00000ef0| 63 6b 20 62 69 6e 64 2d | 64 65 66 73 20 62 69 6e |ck bind-|defs bin|
|00000f00| 64 2d 65 6e 71 75 6f 74 | 65 20 62 69 6e 64 2d 69 |d-enquot|e bind-i|
|00000f10| 6e 69 74 73 20 62 69 6e | 64 2d 6c 65 74 73 20 62 |nits bin|d-lets b|
|00000f20| 69 6e 64 2d 66 6f 72 6d | 73 5d 20 32 29 0a 28 64 |ind-form|s] 2).(d|
|00000f30| 65 66 61 6c 69 61 73 20 | 27 63 6c 2d 74 72 61 6e |efalias |'cl-tran|
|00000f40| 73 66 6f 72 6d 2d 6c 61 | 6d 62 64 61 20 23 5b 28 |sform-la|mbda #[(|
|00000f50| 66 6f 72 6d 20 62 69 6e | 64 2d 62 6c 6f 63 6b 29 |form bin|d-block)|
|00000f60| 20 22 08 40 19 08 41 1a | c3 1c c3 1d c3 1e 06 c3 | ".@..A.|........|
|00000f70| 1e 07 c3 1e 08 c3 1e 09 | c3 1e 5c 6e 5c 6e 40 3b |........|..\n\n@;|
|00000f80| ac 87 5c 6e 40 a2 cb 61 | ab 8c 5c 6e 89 41 12 40 |..\n@..a|..\n.A.@|
|00000f90| 0e 09 42 16 09 aa 68 09 | 3c ab 85 cc 09 21 aa 83 |..B...h.|<....!..|
|00000fa0| cd 09 44 11 ce 09 21 89 | 1e 0f 41 ab 89 0e 0f cd |..D...!.|..A.....|
|00000fb0| 0e 0f 41 44 a1 88 29 d0 | 09 73 41 40 89 14 ab 8c |..AD..).|.sA@....|
|00000fc0| d1 d0 d1 0c 09 5c 22 5c | 22 11 0c 41 40 14 d2 09 |.....\"\|"..A@...|
|00000fd0| 73 89 15 ab 85 d1 d2 09 | 5c 22 11 d3 09 73 ab 84 |s.......|\"...s..|
|00000fe0| d4 d5 21 88 d6 09 73 89 | 1e 0f 41 40 1e 17 0e 0f |..!...s.|..A@....|
|00000ff0| ab 92 d1 0e 0f 40 d1 0e | 17 09 5c 22 5c 22 d8 0e |.....@..|..\"\"..|
|00001000| 17 d9 44 44 a4 11 2a 09 | ab a6 09 40 39 ab a1 09 |..DD..*.|...@9...|
|00001010| 40 da 73 ac 9b 09 40 db | 61 ab 89 0c ac 92 09 41 |@.s...@.|a......A|
|00001020| 40 3a ac 8c 09 89 41 11 | 40 0e 5c 6e 42 16 5c 6e |@:....A.|@.\nB.\n|
|00001030| aa 57 0e 1c dd 61 ac 88 | de 0e 1c 5c 6e 42 42 43 |.W...a..|...\nBBC|
|00001040| 12 09 ac 8d c3 0e 5c 6e | 9f 0e 09 9f 5c 6e a4 42 |......\n|....\n.B|
|00001050| 42 aa cc db 0e 5c 6e 73 | ab 84 db 09 42 11 df 09 |B....\ns|....B...|
|00001060| c3 0e 5c 6e 47 db 0e 5c | 6e 73 ab 83 e0 aa 81 e1 |..\nG..\|ns......|
|00001070| 5a 23 88 0e 07 9f 16 07 | 0e 06 ad 87 e2 e3 0e 06 |Z#......|........|
|00001080| 9f 42 42 0e 5c 6e 9f cd | 0e 07 89 41 16 07 40 40 |.BB.\n..|...A..@@|
|00001090| 44 a4 0e 09 9f e4 0e 07 | 44 0e 08 9f a4 5c 6e a4 |D.......|D....\n.|
|000010a0| 43 a4 42 42 2e 09 87 22 | 20 5b 66 6f 72 6d 20 61 |C.BB..."| [form a|
|000010b0| 72 67 73 20 62 6f 64 79 | 20 6e 69 6c 20 62 69 6e |rgs body| nil bin|
|000010c0| 64 2d 64 65 66 73 20 62 | 69 6e 64 2d 65 6e 71 75 |d-defs b|ind-enqu|
|000010d0| 6f 74 65 20 62 69 6e 64 | 2d 69 6e 69 74 73 20 62 |ote bind|-inits b|
|000010e0| 69 6e 64 2d 6c 65 74 73 | 20 62 69 6e 64 2d 66 6f |ind-lets| bind-fo|
|000010f0| 72 6d 73 20 68 65 61 64 | 65 72 20 73 69 6d 70 6c |rms head|er simpl|
|00001100| 65 2d 61 72 67 73 20 69 | 6e 74 65 72 61 63 74 69 |e-args i|nteracti|
|00001110| 76 65 20 63 6f 70 79 2d | 6c 69 73 74 20 26 72 65 |ve copy-|list &re|
|00001120| 73 74 20 6c 61 73 74 20 | 70 20 26 63 6c 2d 64 65 |st last |p &cl-de|
|00001130| 66 73 20 64 65 6c 71 20 | 26 63 6c 2d 71 75 6f 74 |fs delq |&cl-quot|
|00001140| 65 20 26 77 68 6f 6c 65 | 20 65 72 72 6f 72 20 22 |e &whole| error "|
|00001150| 26 77 68 6f 6c 65 20 6e | 6f 74 20 63 75 72 72 65 |&whole n|ot curre|
|00001160| 6e 74 6c 79 20 69 6d 70 | 6c 65 6d 65 6e 74 65 64 |ntly imp|lemented|
|00001170| 22 20 26 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 76 |" &envir|onment v|
|00001180| 20 26 61 75 78 20 63 6c | 2d 6d 61 63 72 6f 2d 65 | &aux cl|-macro-e|
|00001190| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 28 6e 69 6c 20 |nvironme|nt (nil |
|000011a0| 26 72 65 73 74 20 26 62 | 6f 64 79 20 26 6b 65 79 |&rest &b|ody &key|
|000011b0| 20 26 61 75 78 29 20 26 | 6f 70 74 69 6f 6e 61 6c | &aux) &|optional|
|000011c0| 20 62 69 6e 64 2d 62 6c | 6f 63 6b 20 63 6c 2d 6e | bind-bl|ock cl-n|
|000011d0| 6f 6e 65 20 62 6c 6f 63 | 6b 20 63 6c 2d 64 6f 2d |one bloc|k cl-do-|
|000011e0| 61 72 67 6c 69 73 74 20 | 31 20 30 20 65 76 61 6c |arglist |1 0 eval|
|000011f0| 2d 77 68 65 6e 20 28 63 | 6f 6d 70 69 6c 65 20 6c |-when (c|ompile l|
|00001200| 6f 61 64 20 65 76 61 6c | 29 20 6c 65 74 2a 5d 20 |oad eval|) let*] |
|00001210| 37 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |7]).(def|alias 'c|
|00001220| 6c 2d 64 6f 2d 61 72 67 | 6c 69 73 74 20 23 5b 28 |l-do-arg|list #[(|
|00001230| 61 72 67 73 20 65 78 70 | 72 20 26 6f 70 74 69 6f |args exp|r &optio|
|00001240| 6e 61 6c 20 6e 75 6d 29 | 20 22 08 3c ac 96 08 09 |nal num)| ".<....|
|00001250| 73 ac 84 08 39 ac 85 c2 | c3 08 5c 22 87 08 0c 44 |s...9...|..\"...D|
|00001260| 0d 42 89 15 87 c6 08 21 | 10 c7 08 21 89 1e 08 41 |.B.....!|...!...A|
|00001270| ab 89 0e 08 c9 0e 08 41 | 44 a1 88 29 ca 08 73 89 |.......A|D..)..s.|
|00001280| 1e 08 ab 85 0e 08 c9 a0 | 88 29 cb 08 73 ab 84 c2 |........|.)..s...|
|00001290| cc 21 88 08 c9 08 73 cd | 20 ab 84 0e 0e aa 81 cf |.!....s.| .......|
|000012a0| d0 89 89 89 1e 11 1e 12 | 1e 13 1e 14 1e 15 1e 16 |........|........|
|000012b0| 1e 17 0e 18 ac 83 d9 16 | 18 0e 16 41 40 3c ab 87 |........|...A@<..|
|000012c0| da db 21 16 16 aa 86 0e | 16 41 40 16 16 0e 16 0c |..!.....|.A@.....|
|000012d0| 44 0d 42 15 08 40 dc 61 | ab 8d 08 41 40 08 41 41 |D.B..@.a|...A@.AA|
|000012e0| 10 0e 16 44 0d 42 15 08 | 1e 08 0e 16 16 11 0e 08 |...D.B..|........|
|000012f0| ab 9b 0e 08 40 09 73 ac | 94 0e 08 08 61 ac 86 dd |....@.s.|....a...|
|00001300| 0e 11 44 16 11 0e 08 41 | 89 16 08 ac 65 0e 08 40 |..D....A|....e..@|
|00001310| de 73 ab 95 df e0 0e 16 | 44 e1 08 0e 08 5c 22 47 |.s......|D....\"G|
|00001320| 45 16 11 08 0e 08 61 3f | 16 12 29 08 ab d2 08 40 |E.....a?|..)....@|
|00001330| 09 73 ac cc 08 41 ac 84 | 0e 12 ac 83 e2 aa 81 e3 |.s...A..|........|
|00001340| 0e 16 44 1e 24 e5 08 89 | 41 10 40 0e 13 ac 86 0e |..D.$...|A.@.....|
|00001350| 15 d9 55 ab 84 0e 24 aa | 9a e6 0e 11 0e 24 e7 e8 |..U...$.|.....$..|
|00001360| e9 0e 2a eb 61 3f ad 84 | ec 0e 2a 44 e0 0e 16 44 |..*.a?..|..*D...D|
|00001370| 45 45 46 5c 22 88 29 0e | 18 54 16 18 ed 16 13 aa |EEF\".).|.T......|
|00001380| 2b 08 40 ee 61 ab fd 08 | 89 41 10 40 ab f6 08 ab |+.@.a...|.A.@....|
|00001390| 70 08 40 09 73 ac 6a 08 | 89 41 10 40 89 1e 2f 3a |p.@.s.j.|.A.@../:|
|000013a0| ac 85 0e 2f 43 16 2f 0e | 2f 41 41 ab 8c e5 f0 0e |.../C./.|/AA.....|
|000013b0| 2f 38 f1 0e 16 ed 45 5c | 22 88 0e 2f 41 ab 86 0e |/8....E\|"../A...|
|000013c0| 2f 41 40 aa 8d 0e 32 40 | ae 88 0e 2f 40 0e 32 b7 |/A@...2@|.../@.2.|
|000013d0| 41 40 e2 0e 16 44 1e 24 | 89 1e 33 ab 8a 0e 34 ab |A@...D.$|..3...4.|
|000013e0| 86 ec 0e 33 44 16 33 e5 | 0e 2f 40 0e 33 ab 8a e6 |...3D.3.|./@.3...|
|000013f0| 0e 16 0e 24 0e 33 46 aa | 82 0e 24 5c 22 88 0e 18 |...$.3F.|..$\"...|
|00001400| 54 16 18 2b aa 5c 6e 08 | 40 c9 61 ab 97 08 41 40 |T..+.\n.|@.a...A@|
|00001410| 08 41 41 10 89 1e 2f 3a | ab 87 e5 0e 2f 0e 16 5c |.AA.../:|..../..\|
|00001420| 22 88 29 aa b1 08 40 f5 | 61 ac ab 0e 15 d9 55 ac |".)...@.|a.....U.|
|00001430| a5 0e 12 ac a1 e6 0e 16 | e7 f6 e9 0e 2a eb 61 3f |........|....*.a?|
|00001440| ad 84 ec 0e 2a 44 f7 0e | 18 e0 0e 16 44 45 45 45 |....*D..|....DEEE|
|00001450| 45 0e 38 42 16 38 08 40 | f5 61 83 1f 03 08 89 41 |E.8B.8.@|.a.....A|
|00001460| 10 40 83 1f 03 08 ab 6e | 08 40 09 73 ac 68 08 89 |.@.....n|.@.s.h..|
|00001470| 41 10 40 89 1e 2f 3a ac | 85 0e 2f 43 16 2f 0e 2f |A.@../:.|../C././|
|00001480| 40 3a ab 86 0e 2f 40 40 | aa 88 f9 fa fb 0e 2f 40 |@:.../@@|....../@|
|00001490| 5c 22 21 1e 3c 0e 2f 40 | 3a ab 87 0e 2f 40 41 40 |\"!.<./@|:.../@A@|
|000014a0| aa 83 0e 2f 40 1e 3d 0e | 2f 41 ab 86 0e 2f 41 40 |.../@.=.|/A.../A@|
|000014b0| aa 8c 0e 32 40 ae 87 0e | 3d 0e 32 b7 41 40 1e 33 |...2@...|=.2.A@.3|
|000014c0| fe ec 0e 3c 44 0e 16 45 | 1e 3f 0e 33 ab 8a 0e 34 |...<D..E|.?.3...4|
|000014d0| ab 86 ec 0e 33 44 16 33 | 0e 2f 41 41 ab b4 f0 0e |....3D.3|./AA....|
|000014e0| 2f 38 ae 82 da 20 1e 40 | e3 dd 0e 40 44 44 1e 41 |/8... .@|...@DD.A|
|000014f0| e5 0e 40 0e 3f 5c 22 88 | e5 0e 3d e6 0e 40 81 42 |..@.?\".|..=..@.B|
|00001500| 00 0e 41 81 43 00 0e 40 | ed 45 45 0e 33 46 5c 22 |..A.C..@|.EE.3F\"|
|00001510| 88 2a aa b2 e5 0e 3d e3 | dd 0e 33 ac 84 0e 3f aa |.*....=.|..3...?.|
|00001520| a1 81 44 00 0e 3f 81 45 | 00 0e 33 21 ed 61 ab 8c |..D..?.E|..3!.a..|
|00001530| ec d0 81 46 00 0e 33 21 | 44 44 aa 85 e9 d0 0e 33 |...F..3!|DD.....3|
|00001540| 45 45 44 44 5c 22 88 0e | 3c 0e 14 42 16 14 81 47 |EEDD\"..|<..B...G|
|00001550| 00 0e 3c 21 d9 48 81 48 | 00 55 ab 94 0e 3c 89 4c |..<!.H.H|.U...<.L|
|00001560| 88 81 43 00 0e 3c ec 0e | 3c 44 45 0e 49 42 16 49 |..C..<..|<DE.IB.I|
|00001570| 2d 82 14 02 0e 14 9f 16 | 14 08 40 81 4a 00 61 ab |-.......|..@.J.a.|
|00001580| 87 08 89 41 10 40 ac f4 | 0e 14 ab f0 0e 15 d9 55 |...A.@..|.......U|
|00001590| ac ea da 81 4b 00 21 1e | 4c 81 4d 00 1e 4e 81 4f |....K.!.|L.M..N.O|
|000015a0| 00 0e 4c 81 50 00 fe e3 | 0e 4c 44 ec 81 51 00 0e |..L.P...|.LD..Q..|
|000015b0| 14 0e 4e 5c 22 44 45 81 | 43 00 0e 4c dd 89 0e 4c |..N\"DE.|C..L...L|
|000015c0| 44 44 45 44 e3 dd fe ec | 0e 4e 42 0e 16 45 44 44 |DDED....|.NB..EDD|
|000015d0| 81 43 00 0e 4c d0 45 44 | ed c2 fa 81 52 00 0e 14 |.C..L.ED|....R...|
|000015e0| 5c 22 e3 0e 4c 44 45 44 | 46 45 1e 53 81 54 00 0e |\"..LDED|FE.S.T..|
|000015f0| 4c 0e 16 44 43 0e 53 45 | 0e 38 42 16 38 2b 08 40 |L..DC.SE|.8B.8+.@|
|00001600| 81 55 00 61 ab ca 08 89 | 41 10 40 ab c3 08 ab 6e |.U.a....|A.@....n|
|00001610| 08 40 09 73 ac 68 08 40 | 3a ab aa 0e 34 ab 97 08 |.@.s.h.@|:...4...|
|00001620| 40 41 40 ab 91 e5 08 40 | 40 ec 08 89 41 10 40 41 |@A@....@|@...A.@A|
|00001630| 40 44 5c 22 88 aa 57 e5 | 08 40 40 08 89 41 10 40 |@D\"..W.|.@@..A.@|
|00001640| 41 40 5c 22 88 aa 48 e5 | 08 89 41 10 40 d0 5c 22 |A@\"..H.|..A.@.\"|
|00001650| 88 aa 3d 08 ad 87 c2 81 | 56 00 0e 17 5c 22 2e 07 |..=.....|V...\"..|
|00001660| 87 22 20 5b 61 72 67 73 | 20 6c 61 6d 62 64 61 2d |." [args| lambda-|
|00001670| 6c 69 73 74 2d 6b 65 79 | 77 6f 72 64 73 20 65 72 |list-key|words er|
|00001680| 72 6f 72 20 22 49 6e 76 | 61 6c 69 64 20 61 72 67 |ror "Inv|alid arg|
|00001690| 75 6d 65 6e 74 20 6e 61 | 6d 65 3a 20 25 73 22 20 |ument na|me: %s" |
|000016a0| 65 78 70 72 20 62 69 6e | 64 2d 6c 65 74 73 20 63 |expr bin|d-lets c|
|000016b0| 6f 70 79 2d 6c 69 73 74 | 20 6c 61 73 74 20 70 20 |opy-list| last p |
|000016c0| 26 72 65 73 74 20 26 62 | 6f 64 79 20 26 65 6e 76 |&rest &b|ody &env|
|000016d0| 69 72 6f 6e 6d 65 6e 74 | 20 22 26 65 6e 76 69 72 |ironment| "&envir|
|000016e0| 6f 6e 6d 65 6e 74 20 75 | 73 65 64 20 69 6e 63 6f |onment u|sed inco|
|000016f0| 72 72 65 63 74 6c 79 22 | 20 63 6c 2d 63 6f 6d 70 |rrectly"| cl-comp|
|00001700| 69 6c 69 6e 67 2d 66 69 | 6c 65 20 63 6c 2d 6f 70 |iling-fi|le cl-op|
|00001710| 74 69 6d 69 7a 65 2d 73 | 61 66 65 74 79 20 33 20 |timize-s|afety 3 |
|00001720| 6e 69 6c 20 6d 69 6e 61 | 72 67 20 65 78 61 63 74 |nil mina|rg exact|
|00001730| 61 72 67 20 6c 61 74 65 | 72 61 72 67 20 6b 65 79 |arg late|rarg key|
|00001740| 73 20 73 61 66 65 74 79 | 20 72 65 73 74 61 72 67 |s safety| restarg|
|00001750| 20 73 61 76 65 2d 61 72 | 67 73 20 6e 75 6d 20 30 | save-ar|gs num 0|
|00001760| 20 67 65 6e 73 79 6d 20 | 22 2d 2d 72 65 73 74 2d | gensym |"--rest-|
|00001770| 2d 22 20 26 77 68 6f 6c | 65 20 63 64 72 20 28 6e |-" &whol|e cdr (n|
|00001780| 69 6c 20 26 61 75 78 29 | 20 3d 20 6c 65 6e 67 74 |il &aux)| = lengt|
|00001790| 68 20 6c 64 69 66 66 20 | 70 6f 70 20 63 61 72 20 |h ldiff |pop car |
|000017a0| 70 6f 70 61 72 67 20 63 | 6c 2d 64 6f 2d 61 72 67 |poparg c|l-do-arg|
|000017b0| 6c 69 73 74 20 69 66 20 | 73 69 67 6e 61 6c 20 27 |list if |signal '|
|000017c0| 77 72 6f 6e 67 2d 6e 75 | 6d 62 65 72 2d 6f 66 2d |wrong-nu|mber-of-|
|000017d0| 61 72 67 75 6d 65 6e 74 | 73 20 6c 69 73 74 20 62 |argument|s list b|
|000017e0| 69 6e 64 2d 62 6c 6f 63 | 6b 20 63 6c 2d 6e 6f 6e |ind-bloc|k cl-non|
|000017f0| 65 20 71 75 6f 74 65 20 | 74 20 26 6f 70 74 69 6f |e quote |t &optio|
|00001800| 6e 61 6c 20 61 72 67 20 | 32 20 61 6e 64 20 62 69 |nal arg |2 and bi|
|00001810| 6e 64 2d 64 65 66 73 20 | 64 65 66 20 62 69 6e 64 |nd-defs |def bind|
|00001820| 2d 65 6e 71 75 6f 74 65 | 20 26 6b 65 79 20 27 77 |-enquote| &key 'w|
|00001830| 72 6f 6e 67 2d 6e 75 6d | 62 65 72 2d 6f 66 2d 61 |rong-num|ber-of-a|
|00001840| 72 67 75 6d 65 6e 74 73 | 20 2b 20 62 69 6e 64 2d |rguments| + bind-|
|00001850| 66 6f 72 6d 73 20 69 6e | 74 65 72 6e 20 66 6f 72 |forms in|tern for|
|00001860| 6d 61 74 20 22 3a 25 73 | 22 20 6b 61 72 67 20 76 |mat ":%s|" karg v|
|00001870| 61 72 67 20 6d 65 6d 71 | 20 6c 6f 6f 6b 20 74 65 |arg memq| look te|
|00001880| 6d 70 20 76 61 6c 20 70 | 72 6f 67 31 20 73 65 74 |mp val p|rog1 set|
|00001890| 71 20 6f 72 20 63 6c 2d | 63 6f 6e 73 74 2d 65 78 |q or cl-|const-ex|
|000018a0| 70 72 2d 70 20 63 6c 2d | 63 6f 6e 73 74 2d 65 78 |pr-p cl-|const-ex|
|000018b0| 70 72 2d 76 61 6c 20 73 | 79 6d 62 6f 6c 2d 6e 61 |pr-val s|ymbol-na|
|000018c0| 6d 65 20 3f 5c 3a 20 62 | 69 6e 64 2d 69 6e 69 74 |me ?\: b|ind-init|
|000018d0| 73 20 26 61 6c 6c 6f 77 | 2d 6f 74 68 65 72 2d 6b |s &allow|-other-k|
|000018e0| 65 79 73 20 22 2d 2d 6b | 65 79 73 2d 2d 22 20 76 |eys "--k|eys--" v|
|000018f0| 61 72 20 28 3a 61 6c 6c | 6f 77 2d 6f 74 68 65 72 |ar (:all|ow-other|
|00001900| 2d 6b 65 79 73 29 20 61 | 6c 6c 6f 77 20 77 68 69 |-keys) a|llow whi|
|00001910| 6c 65 20 63 6f 6e 64 20 | 61 70 70 65 6e 64 20 22 |le cond |append "|
|00001920| 4b 65 79 77 6f 72 64 20 | 61 72 67 75 6d 65 6e 74 |Keyword |argument|
|00001930| 20 25 25 73 20 6e 6f 74 | 20 6f 6e 65 20 6f 66 20 | %%s not| one of |
|00001940| 25 73 22 20 63 68 65 63 | 6b 20 6c 65 74 20 26 61 |%s" chec|k let &a|
|00001950| 75 78 20 22 4d 61 6c 66 | 6f 72 6d 65 64 20 61 72 |ux "Malf|ormed ar|
|00001960| 67 75 6d 65 6e 74 20 6c | 69 73 74 20 25 73 22 5d |gument l|ist %s"]|
|00001970| 20 31 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 12]).(d|efalias |
|00001980| 27 63 6c 2d 61 72 67 6c | 69 73 74 2d 61 72 67 73 |'cl-argl|ist-args|
|00001990| 20 23 5b 28 61 72 67 73 | 29 20 22 08 3c ac 83 08 | #[(args|) ".<...|
|000019a0| 43 87 c1 89 89 1a 1b 1c | 08 3a ab be 08 89 41 10 |C.......|.:....A.|
|000019b0| 40 89 12 0d 73 ab 84 5c | 6e 13 aa 6d 5c 6e c6 61 |@...s..\|n..m\n.a|
|000019c0| ab 87 08 89 41 10 88 aa | 61 5c 6e 3a ab 86 0b ab |....A...|a\n:....|
|000019d0| 83 5c 6e 40 12 5c 6e 3a | ab 8d 5c 6e 41 ab 89 0b |.\n@.\n:|..\nA...|
|000019e0| c7 61 ab 84 5c 6e 41 40 | 12 0c c8 5c 6e 21 a4 14 |.a..\nA@|...\n!..|
|000019f0| aa 3e 0c 08 ad 82 08 43 | a4 2b 87 22 20 5b 61 72 |.>.....C|.+." [ar|
|00001a00| 67 73 20 6e 69 6c 20 61 | 72 67 20 6b 69 6e 64 20 |gs nil a|rg kind |
|00001a10| 72 65 73 20 6c 61 6d 62 | 64 61 2d 6c 69 73 74 2d |res lamb|da-list-|
|00001a20| 6b 65 79 77 6f 72 64 73 | 20 26 63 6c 2d 64 65 66 |keywords| &cl-def|
|00001a30| 73 20 26 6b 65 79 20 63 | 6c 2d 61 72 67 6c 69 73 |s &key c|l-arglis|
|00001a40| 74 2d 61 72 67 73 5d 20 | 34 5d 29 0a 28 64 65 66 |t-args] |4]).(def|
|00001a50| 61 6c 69 61 73 20 27 64 | 65 73 74 72 75 63 74 75 |alias 'd|estructu|
|00001a60| 72 69 6e 67 2d 62 69 6e | 64 20 27 28 6d 61 63 72 |ring-bin|d '(macr|
|00001a70| 6f 20 2e 20 23 5b 28 61 | 72 67 73 20 65 78 70 72 |o . #[(a|rgs expr|
|00001a80| 20 26 72 65 73 74 20 62 | 6f 64 79 29 20 22 c0 19 | &rest b|ody) "..|
|00001a90| c0 1a c0 1b c0 1c c5 1e | 06 c7 0e 08 ae 81 c9 0e |........|........|
|00001aa0| 5c 6e 5c 22 88 cb cc 0b | cd 09 9f 44 5c 6e 9f a4 |\n\"....|...D\n..|
|00001ab0| 0e 0e a4 43 23 2d 87 22 | 20 5b 6e 69 6c 20 62 69 |...C#-."| [nil bi|
|00001ac0| 6e 64 2d 6c 65 74 73 20 | 62 69 6e 64 2d 66 6f 72 |nd-lets |bind-for|
|00001ad0| 6d 73 20 62 69 6e 64 2d | 69 6e 69 74 73 20 62 69 |ms bind-|inits bi|
|00001ae0| 6e 64 2d 64 65 66 73 20 | 63 6c 2d 6e 6f 6e 65 20 |nd-defs |cl-none |
|00001af0| 62 69 6e 64 2d 62 6c 6f | 63 6b 20 63 6c 2d 64 6f |bind-blo|ck cl-do|
|00001b00| 2d 61 72 67 6c 69 73 74 | 20 61 72 67 73 20 28 26 |-arglist| args (&|
|00001b10| 61 75 78 29 20 65 78 70 | 72 20 61 70 70 65 6e 64 |aux) exp|r append|
|00001b20| 20 28 70 72 6f 67 6e 29 | 20 6c 65 74 2a 20 62 6f | (progn)| let* bo|
|00001b30| 64 79 5d 20 35 5d 29 29 | 0a 28 62 79 74 65 2d 63 |dy] 5]))|.(byte-c|
|00001b40| 6f 64 65 20 22 c0 c1 21 | ac 82 c2 11 c1 0b 42 13 |ode "..!|......B.|
|00001b50| c2 87 22 20 5b 62 6f 75 | 6e 64 70 20 63 6c 2d 6e |.." [bou|ndp cl-n|
|00001b60| 6f 74 2d 74 6f 70 6c 65 | 76 65 6c 20 6e 69 6c 20 |ot-tople|vel nil |
|00001b70| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00001b80| 74 5d 20 32 29 0a 23 40 | 32 39 30 20 28 65 76 61 |t] 2).#@|290 (eva|
|00001b90| 6c 2d 77 68 65 6e 20 28 | 57 48 45 4e 2e 2e 2e 29 |l-when (|WHEN...)|
|00001ba0| 20 42 4f 44 59 2e 2e 2e | 29 3a 20 63 6f 6e 74 72 | BODY...|): contr|
|00001bb0| 6f 6c 20 77 68 65 6e 20 | 42 4f 44 59 20 69 73 20 |ol when |BODY is |
|00001bc0| 65 76 61 6c 75 61 74 65 | 64 2e 0a 49 66 20 60 63 |evaluate|d..If `c|
|00001bd0| 6f 6d 70 69 6c 65 27 20 | 69 73 20 69 6e 20 57 48 |ompile' |is in WH|
|00001be0| 45 4e 2c 20 42 4f 44 59 | 20 69 73 20 65 76 61 6c |EN, BODY| is eval|
|00001bf0| 75 61 74 65 64 20 77 68 | 65 6e 20 63 6f 6d 70 69 |uated wh|en compi|
|00001c00| 6c 65 64 20 61 74 20 74 | 6f 70 2d 6c 65 76 65 6c |led at t|op-level|
|00001c10| 2e 0a 49 66 20 60 6c 6f | 61 64 27 20 69 73 20 69 |..If `lo|ad' is i|
|00001c20| 6e 20 57 48 45 4e 2c 20 | 42 4f 44 59 20 69 73 20 |n WHEN, |BODY is |
|00001c30| 65 76 61 6c 75 61 74 65 | 64 20 77 68 65 6e 20 6c |evaluate|d when l|
|00001c40| 6f 61 64 65 64 20 61 66 | 74 65 72 20 74 6f 70 2d |oaded af|ter top-|
|00001c50| 6c 65 76 65 6c 20 63 6f | 6d 70 69 6c 65 2e 0a 49 |level co|mpile..I|
|00001c60| 66 20 60 65 76 61 6c 27 | 20 69 73 20 69 6e 20 57 |f `eval'| is in W|
|00001c70| 48 45 4e 2c 20 42 4f 44 | 59 20 69 73 20 65 76 61 |HEN, BOD|Y is eva|
|00001c80| 6c 75 61 74 65 64 20 77 | 68 65 6e 20 69 6e 74 65 |luated w|hen inte|
|00001c90| 72 70 72 65 74 65 64 20 | 6f 72 20 61 74 20 6e 6f |rpreted |or at no|
|00001ca0| 6e 2d 74 6f 70 2d 6c 65 | 76 65 6c 2e 1f 0a 28 64 |n-top-le|vel...(d|
|00001cb0| 65 66 61 6c 69 61 73 20 | 27 65 76 61 6c 2d 77 68 |efalias |'eval-wh|
|00001cc0| 65 6e 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |en '(mac|ro . #[(|
|00001cd0| 77 68 65 6e 20 26 72 65 | 73 74 20 62 6f 64 79 29 |when &re|st body)|
|00001ce0| 20 22 c0 c1 21 ab cb c1 | 20 ab c7 5c 6e ac c4 c3 | "..!...| ..\n...|
|00001cf0| c4 21 ac bf c5 0e 06 73 | ae 84 c7 0e 06 73 c8 1a |.!.....s|.....s..|
|00001d00| 1e 09 ca 0e 06 73 ac 86 | cb 0e 06 73 ab 97 0e 09 |.....s..|...s....|
|00001d10| ab 89 cc cd ce 0e 0f 5c | 22 42 aa 96 d0 d1 89 0e |.......\|"B......|
|00001d20| 0f 42 42 42 aa 8c 0e 09 | ab 87 d2 cc 0e 0f 42 21 |.BBB....|......B!|
|00001d30| 88 d1 2a 87 d2 0e 06 73 | ac 86 d3 0e 06 73 ad 84 |..*....s|.....s..|
|00001d40| cc 0e 0f 42 87 22 20 5b | 66 62 6f 75 6e 64 70 20 |...B." [|fboundp |
|00001d50| 63 6c 2d 63 6f 6d 70 69 | 6c 69 6e 67 2d 66 69 6c |cl-compi|ling-fil|
|00001d60| 65 20 63 6c 2d 6e 6f 74 | 2d 74 6f 70 6c 65 76 65 |e cl-not|-topleve|
|00001d70| 6c 20 62 6f 75 6e 64 70 | 20 66 6f 72 2d 65 66 66 |l boundp| for-eff|
|00001d80| 65 63 74 20 63 6f 6d 70 | 69 6c 65 20 77 68 65 6e |ect comp|ile when|
|00001d90| 20 3a 63 6f 6d 70 69 6c | 65 2d 74 6f 70 6c 65 76 | :compil|e-toplev|
|00001da0| 65 6c 20 74 20 63 6f 6d | 70 20 6c 6f 61 64 20 3a |el t com|p load :|
|00001db0| 6c 6f 61 64 2d 74 6f 70 | 6c 65 76 65 6c 20 70 72 |load-top|level pr|
|00001dc0| 6f 67 6e 20 6d 61 70 63 | 61 72 20 63 6c 2d 63 6f |ogn mapc|ar cl-co|
|00001dd0| 6d 70 69 6c 65 2d 74 69 | 6d 65 2d 74 6f 6f 20 62 |mpile-ti|me-too b|
|00001de0| 6f 64 79 20 69 66 20 6e | 69 6c 20 65 76 61 6c 20 |ody if n|il eval |
|00001df0| 3a 65 78 65 63 75 74 65 | 5d 20 34 20 28 23 24 20 |:execute|] 4 (#$ |
|00001e00| 2e 20 37 30 35 32 29 5d | 29 29 0a 28 64 65 66 61 |. 7052)]|)).(defa|
|00001e10| 6c 69 61 73 20 27 63 6c | 2d 63 6f 6d 70 69 6c 65 |lias 'cl|-compile|
|00001e20| 2d 74 69 6d 65 2d 74 6f | 6f 20 23 5b 28 66 6f 72 |-time-to|o #[(for|
|00001e30| 6d 29 20 22 08 a2 39 ab | 86 08 a2 c1 4e ac 87 c2 |m) "..9.|....N...|
|00001e40| 08 c3 0c 42 5c 22 10 08 | a2 c5 61 ab 88 c5 c6 c7 |...B\"..|..a.....|
|00001e50| 08 41 5c 22 42 87 08 a2 | c8 61 ab a0 08 41 40 1e |.A\"B...|.a...A@.|
|00001e60| 09 ca 0e 09 73 ac 86 cb | 0e 09 73 ab 8c c8 cc 0e |....s...|..s.....|
|00001e70| 09 42 08 41 41 42 42 aa | 81 08 29 87 ca 08 21 88 |.B.AABB.|..)...!.|
|00001e80| 08 87 22 20 5b 66 6f 72 | 6d 20 62 79 74 65 2d 68 |.." [for|m byte-h|
|00001e90| 75 6e 6b 2d 68 61 6e 64 | 6c 65 72 20 6d 61 63 72 |unk-hand|ler macr|
|00001ea0| 6f 65 78 70 61 6e 64 20 | 28 65 76 61 6c 2d 77 68 |oexpand |(eval-wh|
|00001eb0| 65 6e 29 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |en) byte|-compile|
|00001ec0| 2d 6d 61 63 72 6f 2d 65 | 6e 76 69 72 6f 6e 6d 65 |-macro-e|nvironme|
|00001ed0| 6e 74 20 70 72 6f 67 6e | 20 6d 61 70 63 61 72 20 |nt progn| mapcar |
|00001ee0| 63 6c 2d 63 6f 6d 70 69 | 6c 65 2d 74 69 6d 65 2d |cl-compi|le-time-|
|00001ef0| 74 6f 6f 20 65 76 61 6c | 2d 77 68 65 6e 20 77 68 |too eval|-when wh|
|00001f00| 65 6e 20 65 76 61 6c 20 | 3a 65 78 65 63 75 74 65 |en eval |:execute|
|00001f10| 20 63 6f 6d 70 69 6c 65 | 5d 20 34 5d 29 0a 28 62 | compile|] 4]).(b|
|00001f20| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 ab 87 c1 |yte-code| "..!...|
|00001f30| 4b a2 c2 61 ab 84 c3 c4 | 21 88 c0 87 22 20 5b 66 |K..a....|!..." [f|
|00001f40| 62 6f 75 6e 64 70 20 65 | 76 61 6c 2d 77 68 65 6e |boundp e|val-when|
|00001f50| 2d 63 6f 6d 70 69 6c 65 | 20 61 75 74 6f 6c 6f 61 |-compile| autoloa|
|00001f60| 64 20 65 76 61 6c 20 28 | 64 65 66 6d 61 63 72 6f |d eval (|defmacro|
|00001f70| 20 65 76 61 6c 2d 77 68 | 65 6e 2d 63 6f 6d 70 69 | eval-wh|en-compi|
|00001f80| 6c 65 20 28 26 72 65 73 | 74 20 62 6f 64 79 29 20 |le (&res|t body) |
|00001f90| 22 4c 69 6b 65 20 60 70 | 72 6f 67 6e 27 2c 20 62 |"Like `p|rogn', b|
|00001fa0| 75 74 20 65 76 61 6c 75 | 61 74 65 73 20 74 68 65 |ut evalu|ates the|
|00001fb0| 20 62 6f 64 79 20 61 74 | 20 63 6f 6d 70 69 6c 65 | body at| compile|
|00001fc0| 20 74 69 6d 65 2e 5c 6e | 54 68 65 20 72 65 73 75 | time.\n|The resu|
|00001fd0| 6c 74 20 6f 66 20 74 68 | 65 20 62 6f 64 79 20 61 |lt of th|e body a|
|00001fe0| 70 70 65 61 72 73 20 74 | 6f 20 74 68 65 20 63 6f |ppears t|o the co|
|00001ff0| 6d 70 69 6c 65 72 20 61 | 73 20 61 20 71 75 6f 74 |mpiler a|s a quot|
|00002000| 65 64 20 63 6f 6e 73 74 | 61 6e 74 2e 22 20 28 6c |ed const|ant." (l|
|00002010| 69 73 74 20 27 71 75 6f | 74 65 20 28 65 76 61 6c |ist 'quo|te (eval|
|00002020| 20 28 63 6f 6e 73 20 27 | 70 72 6f 67 6e 20 62 6f | (cons '|progn bo|
|00002030| 64 79 29 29 29 29 5d 20 | 32 29 0a 23 40 31 32 31 |dy))))] |2).#@121|
|00002040| 20 4c 69 6b 65 20 60 70 | 72 6f 67 6e 27 2c 20 62 | Like `p|rogn', b|
|00002050| 75 74 20 65 76 61 6c 75 | 61 74 65 73 20 74 68 65 |ut evalu|ates the|
|00002060| 20 62 6f 64 79 20 61 74 | 20 6c 6f 61 64 20 74 69 | body at| load ti|
|00002070| 6d 65 2e 0a 54 68 65 20 | 72 65 73 75 6c 74 20 6f |me..The |result o|
|00002080| 66 20 74 68 65 20 62 6f | 64 79 20 61 70 70 65 61 |f the bo|dy appea|
|00002090| 72 73 20 74 6f 20 74 68 | 65 20 63 6f 6d 70 69 6c |rs to th|e compil|
|000020a0| 65 72 20 61 73 20 61 20 | 71 75 6f 74 65 64 20 63 |er as a |quoted c|
|000020b0| 6f 6e 73 74 61 6e 74 2e | 1f 0a 28 64 65 66 61 6c |onstant.|..(defal|
|000020c0| 69 61 73 20 27 6c 6f 61 | 64 2d 74 69 6d 65 2d 76 |ias 'loa|d-time-v|
|000020d0| 61 6c 75 65 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |alue '(m|acro . #|
|000020e0| 5b 28 66 6f 72 6d 20 26 | 6f 70 74 69 6f 6e 61 6c |[(form &|optional|
|000020f0| 20 72 65 61 64 2d 6f 6e | 6c 79 29 20 22 c0 20 ab | read-on|ly) ". .|
|00002100| be c1 c2 21 1b c4 c5 0b | 44 0e 06 45 1c c7 c8 21 |...!....|D..E...!|
|00002110| ab a0 c9 ca 21 ab 9b c9 | cb 21 ab 96 cc cd ce cf |....!...|.!......|
|00002120| d0 c5 cc 4b 44 45 cc c5 | 0c 44 44 d1 af 05 4d 88 |...KDE..|.DD...M.|
|00002130| aa 86 d2 0c d3 4a 5c 22 | 88 d4 c5 0b 2a 44 44 87 |.....J\"|....*DD.|
|00002140| c5 d5 0e 06 21 44 87 22 | 20 5b 63 6c 2d 63 6f 6d |....!D."| [cl-com|
|00002150| 70 69 6c 69 6e 67 2d 66 | 69 6c 65 20 67 65 6e 74 |piling-f|ile gent|
|00002160| 65 6d 70 20 22 2d 2d 63 | 6c 2d 6c 6f 61 64 2d 74 |emp "--c|l-load-t|
|00002170| 69 6d 65 2d 2d 22 20 74 | 65 6d 70 20 73 65 74 20 |ime--" t|emp set |
|00002180| 71 75 6f 74 65 20 66 6f | 72 6d 20 66 62 6f 75 6e |quote fo|rm fboun|
|00002190| 64 70 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |dp byte-|compile-|
|000021a0| 66 69 6c 65 2d 66 6f 72 | 6d 2d 64 65 66 6d 75 6d |file-for|m-defmum|
|000021b0| 62 6c 65 20 62 6f 75 6e | 64 70 20 74 68 69 73 2d |ble boun|dp this-|
|000021c0| 6b 69 6e 64 20 74 68 61 | 74 2d 6f 6e 65 20 62 79 |kind tha|t-one by|
|000021d0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 66 69 6c 65 2d |te-compi|le-file-|
|000021e0| 66 6f 72 6d 20 6c 61 6d | 62 64 61 20 28 66 6f 72 |form lam|bda (for|
|000021f0| 6d 29 20 66 73 65 74 20 | 27 62 79 74 65 2d 63 6f |m) fset |'byte-co|
|00002200| 6d 70 69 6c 65 2d 66 69 | 6c 65 2d 66 6f 72 6d 20 |mpile-fi|le-form |
|00002210| 28 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 66 69 |(byte-co|mpile-fi|
|00002220| 6c 65 2d 66 6f 72 6d 20 | 66 6f 72 6d 29 20 70 72 |le-form |form) pr|
|00002230| 69 6e 74 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |int byte|-compile|
|00002240| 2d 6f 75 74 70 75 74 2d | 62 75 66 66 65 72 20 73 |-output-|buffer s|
|00002250| 79 6d 62 6f 6c 2d 76 61 | 6c 75 65 20 65 76 61 6c |ymbol-va|lue eval|
|00002260| 5d 20 37 20 28 23 24 20 | 2e 20 38 32 35 37 29 5d |] 7 (#$ |. 8257)]|
|00002270| 29 29 0a 23 40 34 36 31 | 20 28 63 61 73 65 20 45 |)).#@461| (case E|
|00002280| 58 50 52 20 43 4c 41 55 | 53 45 53 2e 2e 2e 29 3a |XPR CLAU|SES...):|
|00002290| 20 65 76 61 6c 73 20 45 | 58 50 52 2c 20 63 68 6f | evals E|XPR, cho|
|000022a0| 6f 73 65 73 20 66 72 6f | 6d 20 43 4c 41 55 53 45 |oses fro|m CLAUSE|
|000022b0| 53 20 6f 6e 20 74 68 61 | 74 20 76 61 6c 75 65 2e |S on tha|t value.|
|000022c0| 0a 45 61 63 68 20 63 6c | 61 75 73 65 20 6c 6f 6f |.Each cl|ause loo|
|000022d0| 6b 73 20 6c 69 6b 65 20 | 28 4b 45 59 4c 49 53 54 |ks like |(KEYLIST|
|000022e0| 20 42 4f 44 59 2e 2e 2e | 29 2e 20 20 45 58 50 52 | BODY...|).  EXPR|
|000022f0| 20 69 73 20 65 76 61 6c | 75 61 74 65 64 20 61 6e | is eval|uated an|
|00002300| 64 20 63 6f 6d 70 61 72 | 65 64 0a 61 67 61 69 6e |d compar|ed.again|
|00002310| 73 74 20 65 61 63 68 20 | 6b 65 79 20 69 6e 20 65 |st each |key in e|
|00002320| 61 63 68 20 4b 45 59 4c | 49 53 54 3b 20 74 68 65 |ach KEYL|IST; the|
|00002330| 20 63 6f 72 72 65 73 70 | 6f 6e 64 69 6e 67 20 42 | corresp|onding B|
|00002340| 4f 44 59 20 69 73 20 65 | 76 61 6c 75 61 74 65 64 |ODY is e|valuated|
|00002350| 2e 0a 49 66 20 6e 6f 20 | 63 6c 61 75 73 65 20 73 |..If no |clause s|
|00002360| 75 63 63 65 65 64 73 2c | 20 63 61 73 65 20 72 65 |ucceeds,| case re|
|00002370| 74 75 72 6e 73 20 6e 69 | 6c 2e 20 20 41 20 73 69 |turns ni|l.  A si|
|00002380| 6e 67 6c 65 20 61 74 6f | 6d 20 6d 61 79 20 62 65 |ngle ato|m may be|
|00002390| 20 75 73 65 64 20 69 6e | 0a 70 6c 61 63 65 20 6f | used in|.place o|
|000023a0| 66 20 61 20 4b 45 59 4c | 49 53 54 20 6f 66 20 6f |f a KEYL|IST of o|
|000023b0| 6e 65 20 61 74 6f 6d 2e | 20 20 41 20 4b 45 59 4c |ne atom.|  A KEYL|
|000023c0| 49 53 54 20 6f 66 20 60 | 74 27 20 6f 72 20 60 6f |IST of `|t' or `o|
|000023d0| 74 68 65 72 77 69 73 65 | 27 20 69 73 0a 61 6c 6c |therwise|' is.all|
|000023e0| 6f 77 65 64 20 6f 6e 6c | 79 20 69 6e 20 74 68 65 |owed onl|y in the|
|000023f0| 20 66 69 6e 61 6c 20 63 | 6c 61 75 73 65 2c 20 61 | final c|lause, a|
|00002400| 6e 64 20 6d 61 74 63 68 | 65 73 20 69 66 20 6e 6f |nd match|es if no|
|00002410| 20 6f 74 68 65 72 20 6b | 65 79 73 20 6d 61 74 63 | other k|eys matc|
|00002420| 68 2e 0a 4b 65 79 20 76 | 61 6c 75 65 73 20 61 72 |h..Key v|alues ar|
|00002430| 65 20 63 6f 6d 70 61 72 | 65 64 20 62 79 20 60 65 |e compar|ed by `e|
|00002440| 71 6c 27 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ql'...(d|efalias |
|00002450| 27 63 61 73 65 20 27 28 | 6d 61 63 72 6f 20 2e 20 |'case '(|macro . |
|00002460| 23 5b 28 65 78 70 72 20 | 26 72 65 73 74 20 63 6c |#[(expr |&rest cl|
|00002470| 61 75 73 65 73 29 20 22 | c0 09 c2 5c 22 ab 83 09 |auses) "|...\"...|
|00002480| aa 82 c3 20 1c c5 1e 06 | c7 c8 c9 0e 5c 6e 5c 22 |... ....|....\n\"|
|00002490| 42 1e 0b 0c 09 61 ab 84 | 0e 0b aa 88 cc 0c 09 44 |B....a..|.......D|
|000024a0| 43 0e 0b 45 2b 87 22 20 | 5b 63 6c 2d 73 69 6d 70 |C..E+." |[cl-simp|
|000024b0| 6c 65 2d 65 78 70 72 2d | 70 20 65 78 70 72 20 33 |le-expr-|p expr 3|
|000024c0| 20 67 65 6e 73 79 6d 20 | 74 65 6d 70 20 6e 69 6c | gensym |temp nil|
|000024d0| 20 68 65 61 64 2d 6c 69 | 73 74 20 63 6f 6e 64 20 | head-li|st cond |
|000024e0| 6d 61 70 63 61 72 20 23 | 5b 28 63 29 20 22 08 40 |mapcar #|[(c) ".@|
|000024f0| c1 73 ab 83 c2 aa c6 08 | 40 c3 61 ab 8d c4 c5 0e |.s......|@.a.....|
|00002500| 06 c7 c8 0e 09 21 44 46 | aa b3 08 40 3c ab 92 ca |.....!DF|...@<...|
|00002510| 08 40 0e 09 5c 22 16 09 | cb 0e 06 c7 08 40 44 45 |.@..\"..|.....@DE|
|00002520| aa 9c 08 40 0e 09 73 ab | 86 c4 cc 08 40 5c 22 88 |...@..s.|....@\".|
|00002530| 08 40 0e 09 42 16 09 cd | 0e 06 c7 08 40 44 45 08 |.@..B...|....@DE.|
|00002540| 41 ae 81 ce 42 87 22 20 | 5b 63 20 28 74 20 6f 74 |A...B." |[c (t ot|
|00002550| 68 65 72 77 69 73 65 29 | 20 74 20 65 63 61 73 65 |herwise)| t ecase|
|00002560| 2d 65 72 72 6f 72 2d 66 | 6c 61 67 20 65 72 72 6f |-error-f|lag erro|
|00002570| 72 20 22 65 63 61 73 65 | 20 66 61 69 6c 65 64 3a |r "ecase| failed:|
|00002580| 20 25 73 2c 20 25 73 22 | 20 74 65 6d 70 20 71 75 | %s, %s"| temp qu|
|00002590| 6f 74 65 20 72 65 76 65 | 72 73 65 20 68 65 61 64 |ote reve|rse head|
|000025a0| 2d 6c 69 73 74 20 61 70 | 70 65 6e 64 20 6d 65 6d |-list ap|pend mem|
|000025b0| 62 65 72 2a 20 22 44 75 | 70 6c 69 63 61 74 65 20 |ber* "Du|plicate |
|000025c0| 6b 65 79 20 69 6e 20 63 | 61 73 65 3a 20 25 73 22 |key in c|ase: %s"|
|000025d0| 20 65 71 6c 20 28 6e 69 | 6c 29 5d 20 36 5d 20 63 | eql (ni|l)] 6] c|
|000025e0| 6c 61 75 73 65 73 20 62 | 6f 64 79 20 6c 65 74 5d |lauses b|ody let]|
|000025f0| 20 34 20 28 23 24 20 2e | 20 38 38 32 35 29 5d 29 | 4 (#$ .| 8825)])|
|00002600| 29 0a 23 40 31 30 33 20 | 28 65 63 61 73 65 20 45 |).#@103 |(ecase E|
|00002610| 58 50 52 20 43 4c 41 55 | 53 45 53 2e 2e 2e 29 3a |XPR CLAU|SES...):|
|00002620| 20 6c 69 6b 65 20 60 63 | 61 73 65 27 2c 20 62 75 | like `c|ase', bu|
|00002630| 74 20 65 72 72 6f 72 20 | 69 66 20 6e 6f 20 63 61 |t error |if no ca|
|00002640| 73 65 20 66 69 74 73 2e | 0a 60 6f 74 68 65 72 77 |se fits.|.`otherw|
|00002650| 69 73 65 27 2d 63 6c 61 | 75 73 65 73 20 61 72 65 |ise'-cla|uses are|
|00002660| 20 6e 6f 74 20 61 6c 6c | 6f 77 65 64 2e 1f 0a 28 | not all|owed...(|
|00002670| 64 65 66 61 6c 69 61 73 | 20 27 65 63 61 73 65 20 |defalias| 'ecase |
|00002680| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 65 78 70 |'(macro |. #[(exp|
|00002690| 72 20 26 72 65 73 74 20 | 63 6c 61 75 73 65 73 29 |r &rest |clauses)|
|000026a0| 20 22 c0 09 c2 0b c4 5c | 22 42 42 87 22 20 5b 63 | ".....\|"BB." [c|
|000026b0| 61 73 65 20 65 78 70 72 | 20 61 70 70 65 6e 64 20 |ase expr| append |
|000026c0| 63 6c 61 75 73 65 73 20 | 28 28 65 63 61 73 65 2d |clauses |((ecase-|
|000026d0| 65 72 72 6f 72 2d 66 6c | 61 67 29 29 5d 20 35 20 |error-fl|ag))] 5 |
|000026e0| 28 23 24 20 2e 20 39 37 | 33 36 29 5d 29 29 0a 23 |(#$ . 97|36)])).#|
|000026f0| 40 33 34 38 20 28 74 79 | 70 65 63 61 73 65 20 45 |@348 (ty|pecase E|
|00002700| 58 50 52 20 43 4c 41 55 | 53 45 53 2e 2e 2e 29 3a |XPR CLAU|SES...):|
|00002710| 20 65 76 61 6c 73 20 45 | 58 50 52 2c 20 63 68 6f | evals E|XPR, cho|
|00002720| 6f 73 65 73 20 66 72 6f | 6d 20 43 4c 41 55 53 45 |oses fro|m CLAUSE|
|00002730| 53 20 6f 6e 20 74 68 61 | 74 20 76 61 6c 75 65 2e |S on tha|t value.|
|00002740| 0a 45 61 63 68 20 63 6c | 61 75 73 65 20 6c 6f 6f |.Each cl|ause loo|
|00002750| 6b 73 20 6c 69 6b 65 20 | 28 54 59 50 45 20 42 4f |ks like |(TYPE BO|
|00002760| 44 59 2e 2e 2e 29 2e 20 | 20 45 58 50 52 20 69 73 |DY...). | EXPR is|
|00002770| 20 65 76 61 6c 75 61 74 | 65 64 20 61 6e 64 2c 20 | evaluat|ed and, |
|00002780| 69 66 20 69 74 0a 73 61 | 74 69 73 66 69 65 73 20 |if it.sa|tisfies |
|00002790| 54 59 50 45 2c 20 74 68 | 65 20 63 6f 72 72 65 73 |TYPE, th|e corres|
|000027a0| 70 6f 6e 64 69 6e 67 20 | 42 4f 44 59 20 69 73 20 |ponding |BODY is |
|000027b0| 65 76 61 6c 75 61 74 65 | 64 2e 20 20 49 66 20 6e |evaluate|d.  If n|
|000027c0| 6f 20 63 6c 61 75 73 65 | 20 73 75 63 63 65 65 64 |o clause| succeed|
|000027d0| 73 2c 0a 74 79 70 65 63 | 61 73 65 20 72 65 74 75 |s,.typec|ase retu|
|000027e0| 72 6e 73 20 6e 69 6c 2e | 20 20 41 20 54 59 50 45 |rns nil.|  A TYPE|
|000027f0| 20 6f 66 20 60 74 27 20 | 6f 72 20 60 6f 74 68 65 | of `t' |or `othe|
|00002800| 72 77 69 73 65 27 20 69 | 73 20 61 6c 6c 6f 77 65 |rwise' i|s allowe|
|00002810| 64 20 6f 6e 6c 79 20 69 | 6e 20 74 68 65 0a 66 69 |d only i|n the.fi|
|00002820| 6e 61 6c 20 63 6c 61 75 | 73 65 2c 20 61 6e 64 20 |nal clau|se, and |
|00002830| 6d 61 74 63 68 65 73 20 | 69 66 20 6e 6f 20 6f 74 |matches |if no ot|
|00002840| 68 65 72 20 6b 65 79 73 | 20 6d 61 74 63 68 2e 1f |her keys| match..|
|00002850| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 79 70 65 |.(defali|as 'type|
|00002860| 63 61 73 65 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |case '(m|acro . #|
|00002870| 5b 28 65 78 70 72 20 26 | 72 65 73 74 20 63 6c 61 |[(expr &|rest cla|
|00002880| 75 73 65 73 29 20 22 c0 | 09 c2 5c 22 ab 83 09 aa |uses) ".|..\"....|
|00002890| 82 c3 20 1c c5 1e 06 c7 | c8 c9 0e 5c 6e 5c 22 42 |.. .....|...\n\"B|
|000028a0| 1e 0b 0c 09 61 ab 84 0e | 0b aa 88 cc 0c 09 44 43 |....a...|......DC|
|000028b0| 0e 0b 45 2b 87 22 20 5b | 63 6c 2d 73 69 6d 70 6c |..E+." [|cl-simpl|
|000028c0| 65 2d 65 78 70 72 2d 70 | 20 65 78 70 72 20 33 20 |e-expr-p| expr 3 |
|000028d0| 67 65 6e 73 79 6d 20 74 | 65 6d 70 20 6e 69 6c 20 |gensym t|emp nil |
|000028e0| 74 79 70 65 2d 6c 69 73 | 74 20 63 6f 6e 64 20 6d |type-lis|t cond m|
|000028f0| 61 70 63 61 72 20 23 5b | 28 63 29 20 22 08 40 c1 |apcar #[|(c) ".@.|
|00002900| 61 ab 83 c2 aa a0 08 40 | c3 61 ab 8d c4 c5 0e 06 |a......@|.a......|
|00002910| c7 c8 0e 09 21 44 46 aa | 8d 08 40 0e 09 42 16 09 |....!DF.|..@..B..|
|00002920| ca 0e 06 08 40 5c 22 08 | 41 ae 81 cb 42 87 22 20 |....@\".|A...B." |
|00002930| 5b 63 20 6f 74 68 65 72 | 77 69 73 65 20 74 20 65 |[c other|wise t e|
|00002940| 63 61 73 65 2d 65 72 72 | 6f 72 2d 66 6c 61 67 20 |case-err|or-flag |
|00002950| 65 72 72 6f 72 20 22 65 | 74 79 70 65 63 61 73 65 |error "e|typecase|
|00002960| 20 66 61 69 6c 65 64 3a | 20 25 73 2c 20 25 73 22 | failed:| %s, %s"|
|00002970| 20 74 65 6d 70 20 71 75 | 6f 74 65 20 72 65 76 65 | temp qu|ote reve|
|00002980| 72 73 65 20 74 79 70 65 | 2d 6c 69 73 74 20 63 6c |rse type|-list cl|
|00002990| 2d 6d 61 6b 65 2d 74 79 | 70 65 2d 74 65 73 74 20 |-make-ty|pe-test |
|000029a0| 28 6e 69 6c 29 5d 20 36 | 5d 20 63 6c 61 75 73 65 |(nil)] 6|] clause|
|000029b0| 73 20 62 6f 64 79 20 6c | 65 74 5d 20 34 20 28 23 |s body l|et] 4 (#|
|000029c0| 24 20 2e 20 39 39 37 33 | 29 5d 29 29 0a 23 40 31 |$ . 9973|)])).#@1|
|000029d0| 31 31 20 28 65 74 79 70 | 65 63 61 73 65 20 45 58 |11 (etyp|ecase EX|
|000029e0| 50 52 20 43 4c 41 55 53 | 45 53 2e 2e 2e 29 3a 20 |PR CLAUS|ES...): |
|000029f0| 6c 69 6b 65 20 60 74 79 | 70 65 63 61 73 65 27 2c |like `ty|pecase',|
|00002a00| 20 62 75 74 20 65 72 72 | 6f 72 20 69 66 20 6e 6f | but err|or if no|
|00002a10| 20 63 61 73 65 20 66 69 | 74 73 2e 0a 60 6f 74 68 | case fi|ts..`oth|
|00002a20| 65 72 77 69 73 65 27 2d | 63 6c 61 75 73 65 73 20 |erwise'-|clauses |
|00002a30| 61 72 65 20 6e 6f 74 20 | 61 6c 6c 6f 77 65 64 2e |are not |allowed.|
|00002a40| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 74 79 |..(defal|ias 'ety|
|00002a50| 70 65 63 61 73 65 20 27 | 28 6d 61 63 72 6f 20 2e |pecase '|(macro .|
|00002a60| 20 23 5b 28 65 78 70 72 | 20 26 72 65 73 74 20 63 | #[(expr| &rest c|
|00002a70| 6c 61 75 73 65 73 29 20 | 22 c0 09 c2 0b c4 5c 22 |lauses) |".....\"|
|00002a80| 42 42 87 22 20 5b 74 79 | 70 65 63 61 73 65 20 65 |BB." [ty|pecase e|
|00002a90| 78 70 72 20 61 70 70 65 | 6e 64 20 63 6c 61 75 73 |xpr appe|nd claus|
|00002aa0| 65 73 20 28 28 65 63 61 | 73 65 2d 65 72 72 6f 72 |es ((eca|se-error|
|00002ab0| 2d 66 6c 61 67 29 29 5d | 20 35 20 28 23 24 20 2e |-flag))]| 5 (#$ .|
|00002ac0| 20 31 30 37 30 37 29 5d | 29 29 0a 23 40 35 32 36 | 10707)]|)).#@526|
|00002ad0| 20 28 62 6c 6f 63 6b 20 | 4e 41 4d 45 20 42 4f 44 | (block |NAME BOD|
|00002ae0| 59 2e 2e 2e 29 3a 20 64 | 65 66 69 6e 65 20 61 20 |Y...): d|efine a |
|00002af0| 6c 65 78 69 63 61 6c 6c | 79 2d 73 63 6f 70 65 64 |lexicall|y-scoped|
|00002b00| 20 62 6c 6f 63 6b 20 6e | 61 6d 65 64 20 4e 41 4d | block n|amed NAM|
|00002b10| 45 2e 0a 4e 41 4d 45 20 | 6d 61 79 20 62 65 20 61 |E..NAME |may be a|
|00002b20| 6e 79 20 73 79 6d 62 6f | 6c 2e 20 20 43 6f 64 65 |ny symbo|l.  Code|
|00002b30| 20 69 6e 73 69 64 65 20 | 74 68 65 20 42 4f 44 59 | inside |the BODY|
|00002b40| 20 66 6f 72 6d 73 20 63 | 61 6e 20 63 61 6c 6c 20 | forms c|an call |
|00002b50| 60 72 65 74 75 72 6e 2d | 66 72 6f 6d 27 0a 74 6f |`return-|from'.to|
|00002b60| 20 6a 75 6d 70 20 70 72 | 65 6d 61 74 75 72 65 6c | jump pr|ematurel|
|00002b70| 79 20 6f 75 74 20 6f 66 | 20 74 68 65 20 62 6c 6f |y out of| the blo|
|00002b80| 63 6b 2e 20 20 54 68 69 | 73 20 64 69 66 66 65 72 |ck.  Thi|s differ|
|00002b90| 73 20 66 72 6f 6d 20 60 | 63 61 74 63 68 27 20 61 |s from `|catch' a|
|00002ba0| 6e 64 20 60 74 68 72 6f | 77 27 0a 69 6e 20 74 77 |nd `thro|w'.in tw|
|00002bb0| 6f 20 72 65 73 70 65 63 | 74 73 3a 20 20 46 69 72 |o respec|ts:  Fir|
|00002bc0| 73 74 2c 20 74 68 65 20 | 4e 41 4d 45 20 69 73 20 |st, the |NAME is |
|00002bd0| 61 6e 20 75 6e 65 76 61 | 6c 75 61 74 65 64 20 73 |an uneva|luated s|
|00002be0| 79 6d 62 6f 6c 20 72 61 | 74 68 65 72 20 74 68 61 |ymbol ra|ther tha|
|00002bf0| 6e 20 61 0a 71 75 6f 74 | 65 64 20 73 79 6d 62 6f |n a.quot|ed symbo|
|00002c00| 6c 20 6f 72 20 6f 74 68 | 65 72 20 66 6f 72 6d 3b |l or oth|er form;|
|00002c10| 20 61 6e 64 20 73 65 63 | 6f 6e 64 2c 20 4e 41 4d | and sec|ond, NAM|
|00002c20| 45 20 69 73 20 6c 65 78 | 69 63 61 6c 6c 79 20 72 |E is lex|ically r|
|00002c30| 61 74 68 65 72 20 74 68 | 61 6e 0a 64 79 6e 61 6d |ather th|an.dynam|
|00002c40| 69 63 61 6c 6c 79 20 73 | 63 6f 70 65 64 3a 20 20 |ically s|coped:  |
|00002c50| 4f 6e 6c 79 20 72 65 66 | 65 72 65 6e 63 65 73 20 |Only ref|erences |
|00002c60| 74 6f 20 69 74 20 77 69 | 74 68 69 6e 20 42 4f 44 |to it wi|thin BOD|
|00002c70| 59 20 77 69 6c 6c 20 77 | 6f 72 6b 2e 20 20 54 68 |Y will w|ork.  Th|
|00002c80| 65 73 65 0a 72 65 66 65 | 72 65 6e 63 65 73 20 6d |ese.refe|rences m|
|00002c90| 61 79 20 61 70 70 65 61 | 72 20 69 6e 73 69 64 65 |ay appea|r inside|
|00002ca0| 20 6d 61 63 72 6f 20 65 | 78 70 61 6e 73 69 6f 6e | macro e|xpansion|
|00002cb0| 73 2c 20 62 75 74 20 6e | 6f 74 20 69 6e 73 69 64 |s, but n|ot insid|
|00002cc0| 65 20 66 75 6e 63 74 69 | 6f 6e 73 0a 63 61 6c 6c |e functi|ons.call|
|00002cd0| 65 64 20 66 72 6f 6d 20 | 42 4f 44 59 2e 1f 0a 28 |ed from |BODY...(|
|00002ce0| 64 65 66 61 6c 69 61 73 | 20 27 62 6c 6f 63 6b 20 |defalias| 'block |
|00002cf0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 6e 61 6d |'(macro |. #[(nam|
|00002d00| 65 20 26 72 65 73 74 20 | 62 6f 64 79 29 20 22 c0 |e &rest |body) ".|
|00002d10| c1 5c 6e 42 21 ab 84 c1 | 5c 6e 42 87 c3 c4 c5 c6 |.\nB!...|\nB.....|
|00002d20| c7 c8 0e 09 5c 22 21 44 | 5c 6e 42 42 44 87 22 20 |....\"!D|\nBBD." |
|00002d30| 5b 63 6c 2d 73 61 66 65 | 2d 65 78 70 72 2d 70 20 |[cl-safe|-expr-p |
|00002d40| 70 72 6f 67 6e 20 62 6f | 64 79 20 63 6c 2d 62 6c |progn bo|dy cl-bl|
|00002d50| 6f 63 6b 2d 77 72 61 70 | 70 65 72 20 63 61 74 63 |ock-wrap|per catc|
|00002d60| 68 20 71 75 6f 74 65 20 | 69 6e 74 65 72 6e 20 66 |h quote |intern f|
|00002d70| 6f 72 6d 61 74 20 22 2d | 2d 63 6c 2d 62 6c 6f 63 |ormat "-|-cl-bloc|
|00002d80| 6b 2d 25 73 2d 2d 22 20 | 6e 61 6d 65 5d 20 37 20 |k-%s--" |name] 7 |
|00002d90| 28 23 24 20 2e 20 31 30 | 39 36 31 29 5d 29 29 0a |(#$ . 10|961)])).|
|00002da0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 ac |(byte-co|de "..!.|
|00002db0| 82 c2 11 c1 0b 42 13 c4 | c5 c6 c7 23 87 22 20 5b |.....B..|...#." [|
|00002dc0| 62 6f 75 6e 64 70 20 63 | 6c 2d 61 63 74 69 76 65 |boundp c|l-active|
|00002dd0| 2d 62 6c 6f 63 6b 2d 6e | 61 6d 65 73 20 6e 69 6c |-block-n|ames nil|
|00002de0| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00002df0| 73 74 20 70 75 74 20 63 | 6c 2d 62 6c 6f 63 6b 2d |st put c|l-block-|
|00002e00| 77 72 61 70 70 65 72 20 | 62 79 74 65 2d 63 6f 6d |wrapper |byte-com|
|00002e10| 70 69 6c 65 20 63 6c 2d | 62 79 74 65 2d 63 6f 6d |pile cl-|byte-com|
|00002e20| 70 69 6c 65 2d 62 6c 6f | 63 6b 5d 20 34 29 0a 28 |pile-blo|ck] 4).(|
|00002e30| 64 65 66 61 6c 69 61 73 | 20 27 63 6c 2d 62 79 74 |defalias| 'cl-byt|
|00002e40| 65 2d 63 6f 6d 70 69 6c | 65 2d 62 6c 6f 63 6b 20 |e-compil|e-block |
|00002e50| 23 5b 28 63 6c 2d 66 6f | 72 6d 29 20 22 c0 c1 21 |#[(cl-fo|rm) "..!|
|00002e60| ab b0 5c 6e 41 40 41 40 | 41 40 c3 42 89 1c 0d 42 |..\nA@A@|A@.B...B|
|00002e70| 1d c6 c7 5c 6e 41 40 41 | 41 42 21 1e 08 0c 41 ab |...\nA@A|AB!...A.|
|00002e80| 8d c9 ca 5c 6e 41 40 41 | 40 0e 08 45 21 aa 84 c9 |...\nA@A|@..E!...|
|00002e90| 0e 08 21 2b 87 c9 5c 6e | 41 40 21 87 22 20 5b 66 |..!+..\n|A@!." [f|
|00002ea0| 62 6f 75 6e 64 70 20 62 | 79 74 65 2d 63 6f 6d 70 |boundp b|yte-comp|
|00002eb0| 69 6c 65 2d 66 6f 72 6d | 2d 64 6f 2d 65 66 66 65 |ile-form|-do-effe|
|00002ec0| 63 74 20 63 6c 2d 66 6f | 72 6d 20 6e 69 6c 20 63 |ct cl-fo|rm nil c|
|00002ed0| 6c 2d 65 6e 74 72 79 20 | 63 6c 2d 61 63 74 69 76 |l-entry |cl-activ|
|00002ee0| 65 2d 62 6c 6f 63 6b 2d | 6e 61 6d 65 73 20 62 79 |e-block-|names by|
|00002ef0| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 74 6f 70 2d 6c |te-compi|le-top-l|
|00002f00| 65 76 65 6c 20 70 72 6f | 67 6e 20 63 6c 2d 62 6f |evel pro|gn cl-bo|
|00002f10| 64 79 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |dy byte-|compile-|
|00002f20| 66 6f 72 6d 20 63 61 74 | 63 68 5d 20 35 5d 29 0a |form cat|ch] 5]).|
|00002f30| 28 70 75 74 20 27 63 6c | 2d 62 6c 6f 63 6b 2d 74 |(put 'cl|-block-t|
|00002f40| 68 72 6f 77 20 27 62 79 | 74 65 2d 63 6f 6d 70 69 |hrow 'by|te-compi|
|00002f50| 6c 65 20 27 63 6c 2d 62 | 79 74 65 2d 63 6f 6d 70 |le 'cl-b|yte-comp|
|00002f60| 69 6c 65 2d 74 68 72 6f | 77 29 0a 28 64 65 66 61 |ile-thro|w).(defa|
|00002f70| 6c 69 61 73 20 27 63 6c | 2d 62 79 74 65 2d 63 6f |lias 'cl|-byte-co|
|00002f80| 6d 70 69 6c 65 2d 74 68 | 72 6f 77 20 23 5b 28 63 |mpile-th|row #[(c|
|00002f90| 6c 2d 66 6f 72 6d 29 20 | 22 08 41 40 41 40 09 b7 |l-form) |".A@A@..|
|00002fa0| 89 1a ab 84 5c 6e c3 a1 | 88 29 c4 c5 08 41 42 21 |....\n..|.)...AB!|
|00002fb0| 87 22 20 5b 63 6c 2d 66 | 6f 72 6d 20 63 6c 2d 61 |." [cl-f|orm cl-a|
|00002fc0| 63 74 69 76 65 2d 62 6c | 6f 63 6b 2d 6e 61 6d 65 |ctive-bl|ock-name|
|00002fd0| 73 20 63 6c 2d 66 6f 75 | 6e 64 20 74 20 62 79 74 |s cl-fou|nd t byt|
|00002fe0| 65 2d 63 6f 6d 70 69 6c | 65 2d 6e 6f 72 6d 61 6c |e-compil|e-normal|
|00002ff0| 2d 63 61 6c 6c 20 74 68 | 72 6f 77 5d 20 34 5d 29 |-call th|row] 4])|
|00003000| 0a 23 40 31 30 33 20 28 | 72 65 74 75 72 6e 20 5b |.#@103 (|return [|
|00003010| 52 45 53 55 4c 54 5d 29 | 3a 20 72 65 74 75 72 6e |RESULT])|: return|
|00003020| 20 66 72 6f 6d 20 74 68 | 65 20 62 6c 6f 63 6b 20 | from th|e block |
|00003030| 6e 61 6d 65 64 20 6e 69 | 6c 2e 0a 54 68 69 73 20 |named ni|l..This |
|00003040| 69 73 20 65 71 75 69 76 | 61 6c 65 6e 74 20 74 6f |is equiv|alent to|
|00003050| 20 60 28 72 65 74 75 72 | 6e 2d 66 72 6f 6d 20 6e | `(retur|n-from n|
|00003060| 69 6c 20 52 45 53 55 4c | 54 29 27 2e 1f 0a 28 64 |il RESUL|T)'...(d|
|00003070| 65 66 61 6c 69 61 73 20 | 27 72 65 74 75 72 6e 20 |efalias |'return |
|00003080| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 26 6f 70 |'(macro |. #[(&op|
|00003090| 74 69 6f 6e 61 6c 20 72 | 65 73 29 20 22 c0 c1 5c |tional r|es) "..\|
|000030a0| 6e 45 87 22 20 5b 72 65 | 74 75 72 6e 2d 66 72 6f |nE." [re|turn-fro|
|000030b0| 6d 20 6e 69 6c 20 72 65 | 73 5d 20 33 20 28 23 24 |m nil re|s] 3 (#$|
|000030c0| 20 2e 20 31 32 32 39 35 | 29 5d 29 29 0a 23 40 33 | . 12295|)])).#@3|
|000030d0| 32 34 20 28 72 65 74 75 | 72 6e 2d 66 72 6f 6d 20 |24 (retu|rn-from |
|000030e0| 4e 41 4d 45 20 5b 52 45 | 53 55 4c 54 5d 29 3a 20 |NAME [RE|SULT]): |
|000030f0| 72 65 74 75 72 6e 20 66 | 72 6f 6d 20 74 68 65 20 |return f|rom the |
|00003100| 62 6c 6f 63 6b 20 6e 61 | 6d 65 64 20 4e 41 4d 45 |block na|med NAME|
|00003110| 2e 0a 54 68 69 73 20 6a | 75 6d 70 20 6f 75 74 20 |..This j|ump out |
|00003120| 74 6f 20 74 68 65 20 69 | 6e 6e 65 72 6d 6f 73 74 |to the i|nnermost|
|00003130| 20 65 6e 63 6c 6f 73 69 | 6e 67 20 60 28 62 6c 6f | enclosi|ng `(blo|
|00003140| 63 6b 20 4e 41 4d 45 20 | 2e 2e 2e 29 27 20 66 6f |ck NAME |...)' fo|
|00003150| 72 6d 2c 0a 72 65 74 75 | 72 6e 69 6e 67 20 52 45 |rm,.retu|rning RE|
|00003160| 53 55 4c 54 20 66 72 6f | 6d 20 74 68 61 74 20 66 |SULT fro|m that f|
|00003170| 6f 72 6d 20 28 6f 72 20 | 6e 69 6c 20 69 66 20 52 |orm (or |nil if R|
|00003180| 45 53 55 4c 54 20 69 73 | 20 6f 6d 69 74 74 65 64 |ESULT is| omitted|
|00003190| 29 2e 0a 54 68 69 73 20 | 69 73 20 63 6f 6d 70 61 |)..This |is compa|
|000031a0| 74 69 62 6c 65 20 77 69 | 74 68 20 43 6f 6d 6d 6f |tible wi|th Commo|
|000031b0| 6e 20 4c 69 73 70 2c 20 | 62 75 74 20 6e 6f 74 65 |n Lisp, |but note|
|000031c0| 20 74 68 61 74 20 60 64 | 65 66 75 6e 27 20 61 6e | that `d|efun' an|
|000031d0| 64 0a 60 64 65 66 6d 61 | 63 72 6f 27 20 64 6f 20 |d.`defma|cro' do |
|000031e0| 6e 6f 74 20 63 72 65 61 | 74 65 20 69 6d 70 6c 69 |not crea|te impli|
|000031f0| 63 69 74 20 62 6c 6f 63 | 6b 73 20 61 73 20 74 68 |cit bloc|ks as th|
|00003200| 65 79 20 64 6f 20 69 6e | 20 43 6f 6d 6d 6f 6e 20 |ey do in| Common |
|00003210| 4c 69 73 70 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |Lisp...(|defalias|
|00003220| 20 27 72 65 74 75 72 6e | 2d 66 72 6f 6d 20 27 28 | 'return|-from '(|
|00003230| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 6e 61 6d 65 20 |macro . |#[(name |
|00003240| 26 6f 70 74 69 6f 6e 61 | 6c 20 72 65 73 29 20 22 |&optiona|l res) "|
|00003250| c0 c1 c2 0b 5c 22 21 1c | c5 c6 0c 44 0e 07 45 29 |....\"!.|...D..E)|
|00003260| 87 22 20 5b 69 6e 74 65 | 72 6e 20 66 6f 72 6d 61 |." [inte|rn forma|
|00003270| 74 20 22 2d 2d 63 6c 2d | 62 6c 6f 63 6b 2d 25 73 |t "--cl-|block-%s|
|00003280| 2d 2d 22 20 6e 61 6d 65 | 20 6e 61 6d 65 32 20 63 |--" name| name2 c|
|00003290| 6c 2d 62 6c 6f 63 6b 2d | 74 68 72 6f 77 20 71 75 |l-block-|throw qu|
|000032a0| 6f 74 65 20 72 65 73 5d | 20 34 20 28 23 24 20 2e |ote res]| 4 (#$ .|
|000032b0| 20 31 32 34 39 39 29 5d | 29 29 0a 28 62 79 74 65 | 12499)]|)).(byte|
|000032c0| 2d 63 6f 64 65 20 22 c0 | 09 42 11 c2 09 42 11 c3 |-code ".|.B...B..|
|000032d0| 09 42 11 c4 09 42 11 c5 | 09 42 11 c6 09 42 11 c7 |.B...B..|.B...B..|
|000032e0| 09 42 11 c8 09 42 11 c9 | 09 42 11 ca 09 42 11 cb |.B...B..|.B...B..|
|000032f0| 09 42 11 cc 09 42 11 cd | 09 42 11 ce 09 42 11 cf |.B...B..|.B...B..|
|00003300| 09 42 11 d0 09 42 11 d1 | 09 42 11 c0 87 22 20 5b |.B...B..|.B..." [|
|00003310| 61 72 67 73 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |args cur|rent-loa|
|00003320| 64 2d 6c 69 73 74 20 6c | 6f 6f 70 2d 61 63 63 75 |d-list l|oop-accu|
|00003330| 6d 2d 76 61 72 20 6c 6f | 6f 70 2d 61 63 63 75 6d |m-var lo|op-accum|
|00003340| 2d 76 61 72 73 20 6c 6f | 6f 70 2d 62 69 6e 64 69 |-vars lo|op-bindi|
|00003350| 6e 67 73 20 6c 6f 6f 70 | 2d 62 6f 64 79 20 6c 6f |ngs loop|-body lo|
|00003360| 6f 70 2d 64 65 73 74 72 | 2d 74 65 6d 70 73 20 6c |op-destr|-temps l|
|00003370| 6f 6f 70 2d 66 69 6e 61 | 6c 6c 79 20 6c 6f 6f 70 |oop-fina|lly loop|
|00003380| 2d 66 69 6e 69 73 68 2d | 66 6c 61 67 20 6c 6f 6f |-finish-|flag loo|
|00003390| 70 2d 66 69 72 73 74 2d | 66 6c 61 67 20 6c 6f 6f |p-first-|flag loo|
|000033a0| 70 2d 69 6e 69 74 69 61 | 6c 6c 79 20 6c 6f 6f 70 |p-initia|lly loop|
|000033b0| 2d 6d 61 70 2d 66 6f 72 | 6d 20 6c 6f 6f 70 2d 6e |-map-for|m loop-n|
|000033c0| 61 6d 65 20 6c 6f 6f 70 | 2d 72 65 73 75 6c 74 20 |ame loop|-result |
|000033d0| 6c 6f 6f 70 2d 72 65 73 | 75 6c 74 2d 65 78 70 6c |loop-res|ult-expl|
|000033e0| 69 63 69 74 20 6c 6f 6f | 70 2d 72 65 73 75 6c 74 |icit loo|p-result|
|000033f0| 2d 76 61 72 20 6c 6f 6f | 70 2d 73 74 65 70 73 20 |-var loo|p-steps |
|00003400| 6c 6f 6f 70 2d 73 79 6d | 62 6f 6c 2d 6d 61 63 73 |loop-sym|bol-macs|
|00003410| 5d 20 32 29 0a 23 40 37 | 32 35 20 28 6c 6f 6f 70 |] 2).#@7|25 (loop|
|00003420| 20 43 4c 41 55 53 45 2e | 2e 2e 29 3a 20 54 68 65 | CLAUSE.|..): The|
|00003430| 20 43 6f 6d 6d 6f 6e 20 | 4c 69 73 70 20 60 6c 6f | Common |Lisp `lo|
|00003440| 6f 70 27 20 6d 61 63 72 | 6f 2e 0a 56 61 6c 69 64 |op' macr|o..Valid|
|00003450| 20 63 6c 61 75 73 65 73 | 20 61 72 65 3a 0a 20 20 | clauses| are:.  |
|00003460| 66 6f 72 20 56 41 52 20 | 66 72 6f 6d 2f 75 70 66 |for VAR |from/upf|
|00003470| 72 6f 6d 2f 64 6f 77 6e | 66 72 6f 6d 20 4e 55 4d |rom/down|from NUM|
|00003480| 20 74 6f 2f 75 70 74 6f | 2f 64 6f 77 6e 74 6f 2f | to/upto|/downto/|
|00003490| 61 62 6f 76 65 2f 62 65 | 6c 6f 77 20 4e 55 4d 20 |above/be|low NUM |
|000034a0| 62 79 20 4e 55 4d 2c 0a | 20 20 66 6f 72 20 56 41 |by NUM,.|  for VA|
|000034b0| 52 20 69 6e 20 4c 49 53 | 54 20 62 79 20 46 55 4e |R in LIS|T by FUN|
|000034c0| 43 2c 20 66 6f 72 20 56 | 41 52 20 6f 6e 20 4c 49 |C, for V|AR on LI|
|000034d0| 53 54 20 62 79 20 46 55 | 4e 43 2c 20 66 6f 72 20 |ST by FU|NC, for |
|000034e0| 56 41 52 20 3d 20 49 4e | 49 54 20 74 68 65 6e 20 |VAR = IN|IT then |
|000034f0| 45 58 50 52 2c 0a 20 20 | 66 6f 72 20 56 41 52 20 |EXPR,.  |for VAR |
|00003500| 61 63 72 6f 73 73 20 41 | 52 52 41 59 2c 20 72 65 |across A|RRAY, re|
|00003510| 70 65 61 74 20 4e 55 4d | 2c 20 77 69 74 68 20 56 |peat NUM|, with V|
|00003520| 41 52 20 3d 20 49 4e 49 | 54 2c 20 77 68 69 6c 65 |AR = INI|T, while|
|00003530| 20 43 4f 4e 44 2c 20 75 | 6e 74 69 6c 20 43 4f 4e | COND, u|ntil CON|
|00003540| 44 2c 0a 20 20 61 6c 77 | 61 79 73 20 43 4f 4e 44 |D,.  alw|ays COND|
|00003550| 2c 20 6e 65 76 65 72 20 | 43 4f 4e 44 2c 20 74 68 |, never |COND, th|
|00003560| 65 72 65 69 73 20 43 4f | 4e 44 2c 20 63 6f 6c 6c |ereis CO|ND, coll|
|00003570| 65 63 74 20 45 58 50 52 | 20 69 6e 74 6f 20 56 41 |ect EXPR| into VA|
|00003580| 52 2c 0a 20 20 61 70 70 | 65 6e 64 20 45 58 50 52 |R,.  app|end EXPR|
|00003590| 20 69 6e 74 6f 20 56 41 | 52 2c 20 6e 63 6f 6e 63 | into VA|R, nconc|
|000035a0| 20 45 58 50 52 20 69 6e | 74 6f 20 56 41 52 2c 20 | EXPR in|to VAR, |
|000035b0| 73 75 6d 20 45 58 50 52 | 20 69 6e 74 6f 20 56 41 |sum EXPR| into VA|
|000035c0| 52 2c 0a 20 20 63 6f 75 | 6e 74 20 45 58 50 52 20 |R,.  cou|nt EXPR |
|000035d0| 69 6e 74 6f 20 56 41 52 | 2c 20 6d 61 78 69 6d 69 |into VAR|, maximi|
|000035e0| 7a 65 20 45 58 50 52 20 | 69 6e 74 6f 20 56 41 52 |ze EXPR |into VAR|
|000035f0| 2c 20 6d 69 6e 69 6d 69 | 7a 65 20 45 58 50 52 20 |, minimi|ze EXPR |
|00003600| 69 6e 74 6f 20 56 41 52 | 2c 0a 20 20 69 66 20 43 |into VAR|,.  if C|
|00003610| 4f 4e 44 20 43 4c 41 55 | 53 45 20 5b 61 6e 64 20 |OND CLAU|SE [and |
|00003620| 43 4c 41 55 53 45 5d 2e | 2e 2e 20 65 6c 73 65 20 |CLAUSE].|.. else |
|00003630| 43 4c 41 55 53 45 20 5b | 61 6e 64 20 43 4c 41 55 |CLAUSE [|and CLAU|
|00003640| 53 45 2e 2e 2e 5d 2c 0a | 20 20 75 6e 6c 65 73 73 |SE...],.|  unless|
|00003650| 20 43 4f 4e 44 20 43 4c | 41 55 53 45 20 5b 61 6e | COND CL|AUSE [an|
|00003660| 64 20 43 4c 41 55 53 45 | 5d 2e 2e 2e 20 65 6c 73 |d CLAUSE|]... els|
|00003670| 65 20 43 4c 41 55 53 45 | 20 5b 61 6e 64 20 43 4c |e CLAUSE| [and CL|
|00003680| 41 55 53 45 2e 2e 2e 5d | 2c 0a 20 20 64 6f 20 45 |AUSE...]|,.  do E|
|00003690| 58 50 52 53 2e 2e 2e 2c | 20 69 6e 69 74 69 61 6c |XPRS...,| initial|
|000036a0| 6c 79 20 45 58 50 52 53 | 2e 2e 2e 2c 20 66 69 6e |ly EXPRS|..., fin|
|000036b0| 61 6c 6c 79 20 45 58 50 | 52 53 2e 2e 2e 2c 20 72 |ally EXP|RS..., r|
|000036c0| 65 74 75 72 6e 20 45 58 | 50 52 2c 0a 20 20 66 69 |eturn EX|PR,.  fi|
|000036d0| 6e 61 6c 6c 79 20 72 65 | 74 75 72 6e 20 45 58 50 |nally re|turn EXP|
|000036e0| 52 2c 20 6e 61 6d 65 64 | 20 4e 41 4d 45 2e 1f 0a |R, named| NAME...|
|000036f0| 28 64 65 66 61 6c 69 61 | 73 20 27 6c 6f 6f 70 20 |(defalia|s 'loop |
|00003700| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 26 72 65 |'(macro |. #[(&re|
|00003710| 73 74 20 61 72 67 73 29 | 20 22 c0 c1 c2 c3 c4 c3 |st args)| "......|
|00003720| c0 c5 0e 06 21 5c 22 5c | 22 5c 22 73 ac 8a c7 c4 |....!\"\|"\"s....|
|00003730| c8 c0 0e 06 42 42 45 87 | c4 89 89 89 89 89 89 89 |....BBE.|........|
|00003740| 89 89 89 89 89 89 89 89 | 1e 09 1e 5c 6e 1e 0b 1e |........|...\n...|
|00003750| 0c 1e 0d 1e 0e 1e 0f 1e | 10 1e 11 1e 12 1e 13 1e |........|........|
|00003760| 14 1e 15 1e 16 1e 17 1e | 18 d9 0e 06 da 5c 22 16 |........|.....\".|
|00003770| 06 0e 06 40 db 61 ac 85 | dc 20 88 aa 74 0e 11 ab |...@.a..|. ..t...|
|00003780| 8a 0e 11 c0 44 43 0e 17 | 42 16 17 0e 0b ab 94 0e |....DC..|B.......|
|00003790| 0b c0 44 43 0e 17 42 16 | 17 dd 0e 0b c4 45 0e 15 |..DC..B.|.....E..|
|000037a0| 42 16 15 0e 0d 9f 0e 13 | ae 82 0e 14 43 a4 1e 1e |B.......|....C...|
|000037b0| df 0e 16 9f 21 89 1e 20 | 41 40 0e 15 9f a4 1e 21 |....!.. |A@.....!|
|000037c0| d9 0e 0e 9f 0e 0c ab 9e | c7 e2 e3 0e 20 40 c0 61 |........|.... @.a|
|000037d0| ab 84 0e 21 aa 89 e4 0e | 20 40 e5 45 0e 21 42 e6 |...!....| @.E.!B.|
|000037e0| 0e 0c 23 45 aa 88 c8 0e | 20 40 0e 21 42 42 43 0e |..#E....| @.!BBC.|
|000037f0| 11 ab 98 0e 1e e7 6b ab | 85 0e 12 43 aa 8f e8 0e |......k.|...C....|
|00003800| 11 e9 0e 1e 42 0e 12 46 | 43 aa 82 0e 1e 23 1e 2a |....B..F|C....#.*|
|00003810| 0e 12 ab 88 0e 12 43 0e | 17 42 16 17 0e 17 ab c0 |......C.|.B......|
|00003820| 0e 17 40 41 ab 91 eb 0e | 17 89 41 16 17 40 0e 2a |..@A....|..A..@.*|
|00003830| c0 23 43 16 2a aa 65 c4 | 1e 2c 0e 17 ab 95 0e 17 |.#C.*.e.|.,......|
|00003840| 40 41 ac 8f 0e 17 89 41 | 16 17 40 40 0e 2c 42 16 |@A.....A|..@@.,B.|
|00003850| 2c aa 67 eb 0e 2c 0e 2a | c4 23 43 16 2a 29 aa 3c |,.g..,.*|.#C.*).<|
|00003860| 0e 09 ab 8a ed 0e 09 0e | 2a 42 42 43 16 2a c7 0e |........|*BBC.*..|
|00003870| 18 0e 2a 2e 14 42 42 87 | 22 20 5b 74 20 6d 61 70 |..*..BB.|" [t map|
|00003880| 63 61 72 20 73 79 6d 62 | 6f 6c 70 20 64 65 6c 71 |car symb|olp delq|
|00003890| 20 6e 69 6c 20 63 6f 70 | 79 2d 6c 69 73 74 20 61 | nil cop|y-list a|
|000038a0| 72 67 73 20 62 6c 6f 63 | 6b 20 77 68 69 6c 65 20 |rgs bloc|k while |
|000038b0| 6c 6f 6f 70 2d 73 79 6d | 62 6f 6c 2d 6d 61 63 73 |loop-sym|bol-macs|
|000038c0| 20 6c 6f 6f 70 2d 64 65 | 73 74 72 2d 74 65 6d 70 | loop-de|str-temp|
|000038d0| 73 20 6c 6f 6f 70 2d 66 | 69 72 73 74 2d 66 6c 61 |s loop-f|irst-fla|
|000038e0| 67 20 6c 6f 6f 70 2d 6d | 61 70 2d 66 6f 72 6d 20 |g loop-m|ap-form |
|000038f0| 6c 6f 6f 70 2d 66 69 6e | 61 6c 6c 79 20 6c 6f 6f |loop-fin|ally loo|
|00003900| 70 2d 69 6e 69 74 69 61 | 6c 6c 79 20 6c 6f 6f 70 |p-initia|lly loop|
|00003910| 2d 61 63 63 75 6d 2d 76 | 61 72 73 20 6c 6f 6f 70 |-accum-v|ars loop|
|00003920| 2d 61 63 63 75 6d 2d 76 | 61 72 20 6c 6f 6f 70 2d |-accum-v|ar loop-|
|00003930| 66 69 6e 69 73 68 2d 66 | 6c 61 67 20 6c 6f 6f 70 |finish-f|lag loop|
|00003940| 2d 72 65 73 75 6c 74 2d | 76 61 72 20 6c 6f 6f 70 |-result-|var loop|
|00003950| 2d 72 65 73 75 6c 74 2d | 65 78 70 6c 69 63 69 74 |-result-|explicit|
|00003960| 20 6c 6f 6f 70 2d 72 65 | 73 75 6c 74 20 6c 6f 6f | loop-re|sult loo|
|00003970| 70 2d 73 74 65 70 73 20 | 6c 6f 6f 70 2d 62 6f 64 |p-steps |loop-bod|
|00003980| 79 20 6c 6f 6f 70 2d 62 | 69 6e 64 69 6e 67 73 20 |y loop-b|indings |
|00003990| 6c 6f 6f 70 2d 6e 61 6d | 65 20 61 70 70 65 6e 64 |loop-nam|e append|
|000039a0| 20 28 63 6c 2d 65 6e 64 | 2d 6c 6f 6f 70 29 20 63 | (cl-end|-loop) c|
|000039b0| 6c 2d 65 6e 64 2d 6c 6f | 6f 70 20 63 6c 2d 70 61 |l-end-lo|op cl-pa|
|000039c0| 72 73 65 2d 6c 6f 6f 70 | 2d 63 6c 61 75 73 65 20 |rse-loop|-clause |
|000039d0| 73 65 74 71 20 65 70 69 | 6c 6f 67 75 65 20 63 6c |setq epi|logue cl|
|000039e0| 2d 6c 6f 6f 70 2d 62 75 | 69 6c 64 2d 61 6e 64 73 |-loop-bu|ild-ands|
|000039f0| 20 61 6e 64 73 20 77 68 | 69 6c 65 2d 62 6f 64 79 | ands wh|ile-body|
|00003a00| 20 2d 2d 63 6c 2d 66 69 | 6e 69 73 68 2d 2d 20 73 | --cl-fi|nish-- s|
|00003a10| 75 62 73 74 20 6f 72 20 | 28 72 65 74 75 72 6e 2d |ubst or |(return-|
|00003a20| 66 72 6f 6d 20 2d 2d 63 | 6c 2d 66 69 6e 69 73 68 |from --c|l-finish|
|00003a30| 2d 2d 20 6e 69 6c 29 20 | 2d 2d 63 6c 2d 6d 61 70 |-- nil) |--cl-map|
|00003a40| 20 28 6e 69 6c 29 20 69 | 66 20 70 72 6f 67 6e 20 | (nil) i|f progn |
|00003a50| 62 6f 64 79 20 63 6c 2d | 6c 6f 6f 70 2d 6c 65 74 |body cl-|loop-let|
|00003a60| 20 6c 65 74 73 20 73 79 | 6d 62 6f 6c 2d 6d 61 63 | lets sy|mbol-mac|
|00003a70| 72 6f 6c 65 74 5d 20 31 | 37 20 28 23 24 20 2e 20 |rolet] 1|7 (#$ . |
|00003a80| 31 33 33 33 39 29 5d 29 | 29 0a 28 64 65 66 61 6c |13339)])|).(defal|
|00003a90| 69 61 73 20 27 63 6c 2d | 70 61 72 73 65 2d 6c 6f |ias 'cl-|parse-lo|
|00003aa0| 6f 70 2d 63 6c 61 75 73 | 65 20 23 5b 6e 69 6c 20 |op-claus|e #[nil |
|00003ab0| 22 08 89 41 10 40 c1 c2 | 1b 1c 1d 08 ac 87 c6 c7 |"..A.@..|........|
|00003ac0| 21 88 82 e7 0c 0d c8 61 | ab 8a 08 89 41 10 40 16 |!......a|....A.@.|
|00003ad0| 09 82 e7 0c 0d ca 61 ab | a4 08 40 cb 73 ab 83 08 |......a.|..@.s...|
|00003ae0| 41 10 08 40 3a ac 84 c6 | cc 21 88 08 40 3a 83 e7 |A..@:...|.!..@:..|
|00003af0| 0c 08 89 41 10 40 0e 0d | 42 16 0d aa 6e 0d ce 61 |...A.@..|B...n..a|
|00003b00| ab d3 08 40 cf 61 ab 8f | 08 41 40 08 41 41 10 ae |...@.a..|.A@.AA..|
|00003b10| 81 d0 16 11 82 e7 0c 08 | 40 d2 73 ab 83 08 41 10 |........|@.s...A.|
|00003b20| 08 40 3a ac 84 c6 d3 21 | 88 08 40 40 cf 61 ab 93 |.@:....!|..@@.a..|
|00003b30| 0e 09 ac 8f 08 89 41 10 | 40 41 40 ae 81 d4 16 11 |......A.|@A@.....|
|00003b40| 82 e7 0c 08 40 3a 83 e7 | 0c 08 89 41 10 40 0e 15 |....@:..|...A.@..|
|00003b50| 42 16 15 aa 6e 0d d6 73 | 83 73 08 d7 89 89 89 1e |B...n..s|.s......|
|00003b60| 18 1e 19 1e 1a 1e 1b 08 | 89 41 10 40 ae 82 dc 20 |........|.A.@... |
|00003b70| 1e 1d 08 89 41 10 40 89 | 15 de 61 ab 86 08 89 41 |....A.@.|..a....A|
|00003b80| 10 40 15 0d df 73 ab 86 | 08 89 41 10 40 15 0d e0 |.@...s..|..A.@...|
|00003b90| 73 ab 86 e1 15 e2 08 42 | 10 0d e3 73 83 e2 01 0d |s......B|...s....|
|00003ba0| 08 42 89 10 40 e4 73 ab | 84 c6 e5 21 88 08 40 e6 |.B..@.s.|...!..@.|
|00003bb0| 61 ae 86 08 41 41 40 e7 | 73 1e 28 08 40 e9 73 ae |a...AA@.|s.(.@.s.|
|00003bc0| 86 08 41 41 40 ea 73 1e | 2b 08 40 ec 73 ad 87 08 |..AA@.s.|+.@.s...|
|00003bd0| 41 40 08 41 41 10 1e 2d | 08 40 ee 73 ad 87 08 41 |A@.AA..-|.@.s...A|
|00003be0| 40 08 41 41 10 1e 2f 08 | 40 f0 61 ad 87 08 41 40 |@.AA../.|@.a...A@|
|00003bf0| 08 41 41 10 1e 31 f2 0e | 2f 21 3f ad 82 dc 20 1e |.AA..1..|/!?... .|
|00003c00| 33 f2 0e 31 21 3f ad 82 | dc 20 1e 34 0e 31 ab 91 |3..1!?..|. .4.1..|
|00003c10| 0e 31 a7 ab 8c 0e 31 f5 | 58 ab 86 c6 f6 0e 31 5c |.1....1.|X.....1\|
|00003c20| 22 88 0e 1d 0e 2d ae 81 | f5 44 0e 1b 42 16 1b 0e |"....-..|.D..B...|
|00003c30| 33 ab 8a 0e 33 0e 2f 44 | 0e 1b 42 16 1b 0e 34 ab |3...3./D|..B...4.|
|00003c40| 8a 0e 34 0e 31 44 0e 1b | 42 16 1b 0e 2f ab a4 0e |..4.1D..|B.../...|
|00003c50| 28 ab 8a 0e 2b ab 83 f7 | aa 8b f8 aa 88 0e 2b ab |(...+...|......+.|
|00003c60| 83 f9 aa 81 fa 0e 1d 0e | 33 ae 82 0e 2f 45 0e 3b |........|3.../E.;|
|00003c70| 42 16 3b 0e 1d 0e 28 ab | 83 fc aa 81 fd 0e 1d 0e |B.;...(.|........|
|00003c80| 34 ae 85 0e 31 ae 81 fe | 45 44 0e 19 42 16 19 2e |4...1...|ED..B...|
|00003c90| 07 82 fd 07 0d ff 73 83 | 97 02 0d 81 40 00 61 89 |......s.|....@.a.|
|00003ca0| 1e 40 ab 89 0e 1d 39 ab | 84 0e 1d aa 82 dc 20 89 |.@....9.|...... .|
|00003cb0| 1e 41 08 89 41 10 40 44 | 0e 1b 42 16 1b 81 42 00 |.A..A.@D|..B...B.|
|00003cc0| 0e 41 44 0e 3b 42 16 3b | 0d 81 43 00 61 ab 90 0e |.AD.;B.;|..C.a...|
|00003cd0| 1d 81 44 00 0e 41 44 44 | 0e 45 42 16 45 aa a6 0e |..D..ADD|.EB.E...|
|00003ce0| 41 0e 1d 61 ac 9f 0e 1d | d7 44 0e 1b 42 16 1b 0e |A..a....|.D..B...|
|00003cf0| 1d 0e 40 ab 84 0e 41 aa | 86 81 44 00 0e 41 44 44 |..@...A.|..D..ADD|
|00003d00| 0e 1a 42 16 1a 0e 41 08 | 40 f0 61 ab ac 08 41 40 |..B...A.|@.a...A@|
|00003d10| 08 41 41 10 89 1e 31 a2 | 81 46 00 73 ab 90 0e 31 |.AA...1.|.F.s...1|
|00003d20| 41 40 39 ab 89 0e 31 41 | 40 0e 41 44 aa 88 81 47 |A@9...1A|@.AD...G|
|00003d30| 00 0e 31 0e 41 45 29 aa | 86 81 48 00 0e 41 44 44 |..1.AE).|..H..ADD|
|00003d40| 0e 19 42 16 19 2a 82 fd | 07 0d 81 49 00 61 ab fe |..B..*..|...I.a..|
|00003d50| 08 89 41 10 40 1e 2d 08 | 40 81 4a 00 61 ab 89 08 |..A.@.-.|@.J.a...|
|00003d60| 41 40 08 41 41 10 aa 82 | 0e 2d 1e 4a 0e 1d d7 44 |A@.AA...|.-.J...D|
|00003d70| 0e 1b 42 16 1b 0e 18 ac | 88 08 40 81 4b 00 61 ab |..B.....|..@.K.a.|
|00003d80| a5 0e 1d 81 4c 00 0e 4d | ae 85 dc 20 89 16 4d 0e |....L..M|... ..M.|
|00003d90| 2d 0e 1d 46 44 0e 1a 42 | 16 1a 0e 1d 0e 4a 44 0e |-..FD..B|.....JD.|
|00003da0| 19 42 16 19 aa a4 0e 1d | 0e 2d 0e 4a 61 ab 84 0e |.B......|.-.Ja...|
|00003db0| 2d aa 91 81 4c 00 0e 4d | ae 85 dc 20 89 16 4d 0e |-...L..M|... ..M.|
|00003dc0| 2d 0e 4a 46 44 0e 1a 42 | 16 1a 2a 82 fd 07 0d 81 |-.JFD..B|..*.....|
|00003dd0| 4e 00 73 ab ee dc 20 dc | 20 1e 4f 89 1e 50 08 89 |N.s... .| .O..P..|
|00003de0| 41 10 40 44 0e 1b 42 16 | 1b 0e 4f 81 51 00 44 0e |A.@D..B.|..O.Q.D.|
|00003df0| 1b 42 16 1b f9 81 52 00 | 0e 4f 81 53 00 0e 4f 44 |.B....R.|.O.S..OD|
|00003e00| 45 81 54 00 0e 50 44 45 | 0e 3b 42 16 3b 0d 81 55 |E.T..PDE|.;B.;..U|
|00003e10| 00 61 ab 92 0e 1d 81 56 | 00 0e 50 0e 4f 45 44 0e |.a.....V|..P.OED.|
|00003e20| 45 42 16 45 aa 99 0e 1d | d7 44 0e 1b 42 16 1b 0e |EB.E....|.D..B...|
|00003e30| 1d 81 56 00 0e 50 0e 4f | 45 44 0e 1a 42 16 1a 2a |..V..P.O|ED..B..*|
|00003e40| 82 fd 07 0d 81 57 00 73 | 83 90 04 08 40 81 58 00 |.....W.s|....@.X.|
|00003e50| 73 ae 8e 08 40 81 59 00 | 73 3f ad 85 c6 81 5a 00 |s...@.Y.|s?....Z.|
|00003e60| 21 08 41 40 08 41 41 10 | dc 20 08 40 81 5b 00 61 |!.A@.AA.|. .@.[.a|
|00003e70| ab a6 08 41 40 47 81 5c | 5c 00 55 ab 95 08 41 40 |...A@G.\|\.U...A@|
|00003e80| 40 81 5d 00 61 ab 8b 08 | 41 40 08 41 41 10 41 40 |@.].a...|A@.AA.A@|
|00003e90| aa 89 c6 81 5e 00 21 aa | 82 dc 20 1e 4f 1e 5f 1e |....^.!.|.. .O._.|
|00003ea0| 60 1e 61 0e 5f 0e 60 44 | 0e 1b 42 16 1b 0e 4f f5 |`.a._.`D|..B...O.|
|00003eb0| 44 0e 1b 42 16 1b 0e 61 | ab af dc 20 89 1e 62 81 |D..B...a|... ..b.|
|00003ec0| 54 00 0e 5f 44 44 0e 1b | 42 16 1b 0e 1d 81 63 00 |T.._DD..|B.....c.|
|00003ed0| 0e 5f 0e 4f 45 44 0e 45 | 42 16 45 f9 0e 4f 0e 62 |._.OED.E|B.E..O.b|
|00003ee0| 45 0e 3b 42 16 3b 29 aa | c8 0e 1d d7 44 0e 1b 42 |E.;B.;).|....D..B|
|00003ef0| 16 1b 81 4b 00 0e 5f 81 | 64 00 81 42 00 0e 5f 44 |...K.._.|d..B.._D|
|00003f00| f9 0e 4f 81 54 00 0e 5f | 44 45 45 45 0e 3b 42 16 |..O.T.._|DEEE.;B.|
|00003f10| 3b 0e 1d 81 4c 00 81 42 | 00 0e 5f 44 81 65 00 0e |;...L..B|.._D.e..|
|00003f20| 5f 44 81 56 00 0e 5f 0e | 4f 45 46 44 0e 1a 42 16 |_D.V.._.|OEFD..B.|
|00003f30| 1a 0e 4f 81 53 00 0e 4f | 44 44 0e 19 42 16 19 2c |..O.S..O|DD..B..,|
|00003f40| 82 fd 07 0d 0c 73 ab fb | 08 40 81 66 00 73 ac 86 |.....s..|.@.f.s..|
|00003f50| c6 81 5a 00 21 88 08 41 | 40 08 41 41 10 1e 67 08 |..Z.!..A|@.AA..g.|
|00003f60| 40 81 5b 00 61 ab ac 08 | 41 40 47 81 5c 5c 00 55 |@.[.a...|A@G.\\.U|
|00003f70| ab 9b 08 41 40 40 0c 73 | ab 93 08 41 40 40 0d 61 |...A@@.s|...A@@.a|
|00003f80| ac 8b 08 41 40 08 41 41 | 10 41 40 aa 89 c6 81 5e |...A@.AA|.A@....^|
|00003f90| 00 21 aa 82 dc 20 1e 68 | 0d 81 69 00 73 ab 88 0e |.!... .h|..i.s...|
|00003fa0| 68 0e 1d 16 68 16 1d 81 | 6a 00 81 6b 00 81 6c 00 |h...h...|j..k..l.|
|00003fb0| 0e 1d 0e 68 44 81 6d 00 | 42 42 44 0e 67 45 16 6e |...hD.m.|BBD.gE.n|
|00003fc0| 2a 82 fd 07 0d 81 6f 00 | 73 ab ac 08 40 81 70 00 |*.....o.|s...@.p.|
|00003fd0| 73 ad 87 08 41 40 08 41 | 41 10 1e 71 81 72 00 81 |s...A@.A|A..q.r..|
|00003fe0| 6b 00 81 6c 00 0e 1d 43 | 81 6d 00 42 42 44 0e 71 |k..l...C|.m.BBD.q|
|00003ff0| 45 16 6e 29 82 fd 07 0d | 81 73 00 73 ab e4 d7 89 |E.n)....|.s.s....|
|00004000| 89 1e 74 1e 75 1e 76 08 | 40 81 77 00 73 ab b1 08 |..t.u.v.|@.w.s...|
|00004010| 40 81 75 00 61 ab 8b 08 | 41 40 08 41 41 10 16 75 |@.u.a...|A@.AA..u|
|00004020| aa 65 08 40 81 74 00 61 | ab 8b 08 41 40 08 41 41 |.e.@.t.a|...A@.AA|
|00004030| 10 16 74 aa 52 08 41 40 | 08 41 41 10 16 76 aa 47 |..t.R.A@|.AA..v.G|
|00004040| 81 78 00 81 6b 00 81 6c | 00 0e 1d dc 20 44 81 79 |.x..k..l|.... D.y|
|00004050| 00 d7 46 44 0e 76 0e 75 | 0e 74 af 05 16 6e 2b 82 |..FD.v.u|.t...n+.|
|00004060| fd 07 0d 81 7a 00 73 83 | 67 06 d7 89 89 89 dc 20 |....z.s.|g...... |
|00004070| dc 20 1e 7b 1e 7c 1e 74 | 1e 75 1e 7d 1e 76 08 40 |. .{.|.t|.u.}.v.@|
|00004080| 81 7e 00 73 ab c4 08 40 | 81 75 00 61 ab 8b 08 41 |.~.s...@|.u.a...A|
|00004090| 40 08 41 41 10 16 75 aa | 65 08 40 81 74 00 61 ab |@.AA..u.|e.@.t.a.|
|000040a0| 8b 08 41 40 08 41 41 10 | 16 74 aa 52 08 40 81 7f |..A@.AA.|.t.R.@..|
|000040b0| 00 61 ab 8b 08 41 40 08 | 41 41 10 16 7d aa 3f 08 |.a...A@.|AA..}.?.|
|000040c0| 41 40 08 41 41 10 16 76 | aa 34 0e 1d 3a ab 98 0e |A@.AA..v|.4..:...|
|000040d0| 1d 40 39 ab 92 0e 1d 41 | 39 ab 8c 0e 1d 40 16 7c |.@9....A|9....@.||
|000040e0| 0e 1d 41 16 7b aa 90 0e | 1d 81 80 00 0e 7c 0e 7b |..A.{...|.....|.{|
|000040f0| 45 44 0e 1a 42 16 1a 81 | 81 00 81 6b 00 81 6c 00 |ED..B...|...k..l.|
|00004100| 0e 7c 0e 7b 44 81 82 00 | 45 44 0e 76 0e 7d 0e 75 |.|.{D...|ED.v.}.u|
|00004110| 0e 74 af 06 16 6e 2e 06 | 82 fd 07 0d 0b 73 83 f4 |.t...n..|.....s..|
|00004120| 06 08 40 81 83 00 73 ac | 86 c6 81 5a 00 21 88 08 |..@...s.|...Z.!..|
|00004130| 41 40 08 41 41 89 10 40 | 81 5b 00 61 ab ac 08 41 |A@.AA..@|.[.a...A|
|00004140| 40 47 81 5c 5c 00 55 ab | 9b 08 41 40 40 0b 73 ab |@G.\\.U.|..A@@.s.|
|00004150| 93 08 41 40 40 0d 61 ac | 8b 08 41 40 08 41 41 10 |..A@@.a.|..A@.AA.|
|00004160| 41 40 aa 89 c6 81 5e 00 | 21 aa 82 dc 20 1e 68 1e |A@....^.|!... .h.|
|00004170| 84 0d 81 85 00 73 ab 88 | 0e 68 0e 1d 16 68 16 1d |.....s..|.h...h..|
|00004180| 0d 81 86 00 73 ab 85 81 | 87 00 aa 83 81 88 00 81 |....s...|........|
|00004190| 6b 00 81 6c 00 0e 1d 0e | 68 44 81 6d 00 42 42 44 |k..l....|hD.m.BBD|
|000041a0| 0e 84 45 16 6e 2a 82 fd | 07 0d 81 89 00 73 ab e7 |..E.n*..|.....s..|
|000041b0| dc 20 1e 41 0e 1d 0e 8a | 81 8b 00 61 ab 85 81 8c |. .A....|...a....|
|000041c0| 00 aa 83 81 8d 00 44 0e | 1b 42 16 1b 0e 41 d7 44 |......D.|.B...A.D|
|000041d0| 0e 1b 42 16 1b 81 8e 00 | 81 8f 00 81 90 00 0e 1d |..B.....|........|
|000041e0| 0e 41 45 44 81 64 00 0e | 41 81 52 00 0e 41 0e 1d |.AED.d..|A.R..A..|
|000041f0| 45 45 45 0e 3b 42 16 3b | 0e 1d 0e 8a 81 8b 00 61 |EEE.;B.;|.......a|
|00004200| ab 85 81 91 00 aa 83 81 | 92 00 0e 1d 44 44 0e 19 |........|....DD..|
|00004210| 42 16 19 29 82 fd 07 0d | 81 93 00 73 ab f6 08 40 |B..)....|...s...@|
|00004220| 81 94 00 73 ad 87 08 41 | 40 08 41 41 10 dc 20 1e |...s...A|@.AA.. .|
|00004230| 41 1e 95 0e 1d 0e 95 ab | 95 0e 8a 81 8b 00 61 ab |A.......|......a.|
|00004240| 85 81 96 00 aa 83 81 97 | 00 0e 95 44 aa 83 81 98 |........|...D....|
|00004250| 00 44 0e 1b 42 16 1b 0e | 41 d7 44 0e 1b 42 16 1b |.D..B...|A.D..B..|
|00004260| 81 8e 00 81 8f 00 81 90 | 00 0e 1d 0e 41 45 44 81 |........|....AED.|
|00004270| 64 00 0e 41 81 52 00 0e | 41 0e 1d 45 45 45 0e 3b |d..A.R..|A..EEE.;|
|00004280| 42 16 3b 0e 1d 81 99 00 | 0e 1d 44 44 0e 19 42 16 |B.;.....|..DD..B.|
|00004290| 19 2a aa 9e 0d 39 ad 85 | 0d 81 9a 00 4e 89 1e 9b |.*...9..|....N...|
|000042a0| ab 88 0e 9b 0e 1d 21 88 | aa 87 c6 81 9c 00 0d 5c |......!.|.......\|
|000042b0| 22 88 29 08 40 29 81 4b | 00 61 ab 8d 81 9d 00 16 |".).@).K|.a......|
|000042c0| 18 08 89 41 10 88 82 b6 | 00 0e 18 ab 8e 0e 1b ab |...A....|........|
|000042d0| 8a 0e 1b 9f 0e 9e 42 16 | 9e aa 8e 81 9f 00 81 a0 |......B.|........|
|000042e0| 00 0e 1b 5c 22 0e 9e a4 | 16 9e 0e 1a ab 98 81 a1 |...\"...|........|
|000042f0| 00 81 a2 00 0e 1a 9f 81 | 52 00 0e 18 23 81 9d 00 |........|R...#...|
|00004300| 45 0e 3b 42 16 3b 0e 19 | ab 9c 0e 18 ab 85 81 a3 |E.;B.;..|........|
|00004310| 00 aa 83 81 52 00 81 a4 | 00 81 a5 00 0e 19 9f 5c |....R...|.......\|
|00004320| 22 42 0e a6 42 16 a6 2c | 82 e7 0c 0d 81 a7 00 61 |"B..B..,|.......a|
|00004330| ab a9 dc 20 89 1e 41 08 | 89 41 10 40 44 43 0e 9e |... ..A.|.A.@DC..|
|00004340| 42 16 9e f8 81 52 00 0e | 41 81 a8 00 0e 41 44 45 |B....R..|A....ADE|
|00004350| f5 45 0e 3b 42 16 3b 29 | 82 e7 0c 0d 81 a9 00 61 |.E.;B.;)|.......a|
|00004360| ab d0 08 89 41 10 40 81 | aa 00 d7 81 ab 00 5c 22 |....A.@.|......\"|
|00004370| 1e 1d 1e ac 0e 1d 0e ad | 61 ab 96 81 a1 00 81 ae |........|a.......|
|00004380| 00 0e ac 0e 1d 45 81 9d | 00 45 0e 3b 42 16 3b aa |.....E..|.E.;B.;.|
|00004390| 9e 81 a1 00 81 52 00 0e | 1d 81 af 00 0e 1d 81 a0 |.....R..|........|
|000043a0| 00 0e ac 44 45 45 81 9d | 00 45 0e 3b 42 16 3b 2a |...DEE..|.E.;B.;*|
|000043b0| 82 e7 0c 0d 81 b0 00 73 | ab db 08 89 41 10 40 81 |.......s|....A.@.|
|000043c0| aa 00 d7 81 ab 00 5c 22 | 1e 1d 1e ac 81 a1 00 81 |......\"|........|
|000043d0| 52 00 0e 1d 89 0e ad 61 | ab 9a 81 af 00 0d 81 b1 |R......a|........|
|000043e0| 00 73 ab 85 81 ab 00 aa | 83 81 b2 00 0e ac 44 0e |.s......|......D.|
|000043f0| 1d 45 aa 94 0d 81 b3 00 | 73 ab 85 81 af 00 aa 83 |.E......|s.......|
|00004400| 81 a5 00 0e 1d 0e ac 45 | 45 81 9d 00 45 0e 3b 42 |.......E|E...E.;B|
|00004410| 16 3b 2a 82 e7 0c 0d 81 | b4 00 73 ab ab 08 89 41 |.;*.....|..s....A|
|00004420| 10 40 81 aa 00 81 b5 00 | 21 1e 1d 1e ac 81 a1 00 |.@......|!.......|
|00004430| 81 b6 00 81 b7 00 0e 1d | 0e ac 46 81 9d 00 45 0e |........|..F...E.|
|00004440| 3b 42 16 3b 2a 82 e7 0c | 0d 81 b8 00 73 ab ab 08 |;B.;*...|....s...|
|00004450| 89 41 10 40 81 aa 00 81 | b9 00 21 1e 1d 1e ac 81 |.A.@....|..!.....|
|00004460| a1 00 81 b6 00 81 ba 00 | 0e 1d 0e ac 46 81 9d 00 |........|....F...|
|00004470| 45 0e 3b 42 16 3b 2a 82 | e7 0c 0d 81 bb 00 73 ab |E.;B.;*.|......s.|
|00004480| a6 08 89 41 10 40 81 aa | 00 f5 21 1e 1d 1e ac 81 |...A.@..|..!.....|
|00004490| a1 00 81 bc 00 0e 1d 0e | ac 45 81 9d 00 45 0e 3b |........|.E...E.;|
|000044a0| 42 16 3b 2a 82 e7 0c 0d | 81 bd 00 73 ab aa 08 89 |B.;*....|...s....|
|000044b0| 41 10 40 81 aa 00 f5 21 | 1e 1d 1e ac 81 a1 00 81 |A.@....!|........|
|000044c0| 4c 00 0e ac 81 bc 00 0e | 1d 44 45 81 9d 00 45 0e |L.......|.DE...E.|
|000044d0| 3b 42 16 3b 2a 82 e7 0c | 0d 81 be 00 73 ab ec 08 |;B.;*...|....s...|
|000044e0| 89 41 10 40 1e ac 81 bf | 00 0e ac 21 ab 84 0e ac |.A.@....|...!....|
|000044f0| aa 82 dc 20 1e 41 81 aa | 00 d7 21 1e 1d 81 c0 00 |... .A..|..!.....|
|00004500| 81 c1 00 0d 21 f5 81 c2 | 00 4f 21 1e c3 81 52 00 |....!...|.O!...R.|
|00004510| 0e 1d 81 4c 00 0e 1d 0e | c3 0e 1d 0e 41 45 0e 41 |...L....|....AE.A|
|00004520| 46 45 1e c4 81 a1 00 0e | 41 0e ac 61 ab 84 0e c4 |FE......|A..a....|
|00004530| aa 8c 81 c5 00 0e 41 0e | ac 44 43 0e c4 45 81 9d |......A.|.DC..E..|
|00004540| 00 45 0e 3b 42 16 3b 2d | 82 e7 0c 0d 81 c6 00 61 |.E.;B.;-|.......a|
|00004550| ab b8 d7 1e c7 08 89 41 | 10 40 08 40 81 49 00 61 |.......A|.@.@.I.a|
|00004560| ad 87 08 41 40 08 41 41 | 10 44 0e c7 42 16 c7 08 |...A@.AA|.D..B...|
|00004570| 40 81 4b 00 61 ab 87 08 | 89 41 10 88 aa 57 0e c7 |@.K.a...|.A...W..|
|00004580| 9f 0e 9e 42 16 9e 29 82 | e7 0c 0d 81 c8 00 61 ab |...B..).|......a.|
|00004590| 8d 08 89 41 10 40 0e 3b | 42 16 3b 82 e7 0c 0d 81 |...A.@.;|B.;.....|
|000045a0| c9 00 61 ab 91 81 8f 00 | 08 89 41 10 40 44 0e 3b |..a.....|..A.@D.;|
|000045b0| 42 16 3b 82 e7 0c 0d 81 | ca 00 61 ab a0 0e cb ac |B.;.....|..a.....|
|000045c0| 84 dc 20 16 cb 81 52 00 | 0e cb 08 89 41 10 40 45 |.. ...R.|....A.@E|
|000045d0| 0e 3b 42 16 3b 81 9d 00 | 16 cc 82 e7 0c 0d 81 cd |.;B.;...|........|
|000045e0| 00 61 ab a4 0e cb ac 84 | dc 20 16 cb 81 52 00 0e |.a......|. ...R..|
|000045f0| cb 81 8f 00 08 89 41 10 | 40 44 45 0e 3b 42 16 3b |......A.|@DE.;B.;|
|00004600| 81 9d 00 16 cc 82 e7 0c | 0d 81 ce 00 61 ab ad 0e |........|....a...|
|00004610| cb ac 84 dc 20 16 cb 0e | cf ac 84 dc 20 16 cf 81 |.... ...|.... ...|
|00004620| 52 00 0e cb 81 8f 00 81 | 52 00 0e cf 08 89 41 10 |R.......|R.....A.|
|00004630| 40 45 44 45 0e 3b 42 16 | 3b 82 e7 0c 0d 81 d0 00 |@EDE.;B.|;.......|
|00004640| 73 83 69 0c 08 89 41 10 | 40 1e d1 d7 1e 3b 81 d2 |s.i...A.|@....;..|
|00004650| 00 20 88 81 d3 00 0e 3b | 9f 21 29 1e 4a d7 1e 3b |. .....;|.!).J..;|
|00004660| 08 40 81 d4 00 61 ab 88 | 08 41 10 81 d2 00 20 88 |.@...a..|.A.... .|
|00004670| 81 d3 00 0e 3b 9f 21 29 | 1e d4 0e 4a 40 81 9d 00 |....;.!)|...J@...|
|00004680| 61 ad 87 0e d4 40 81 9d | 00 61 1e d5 08 40 ef 61 |a....@..|.a...@.a|
|00004690| ab 83 08 41 10 0d 81 d6 | 00 61 ab 88 0e d4 0e 4a |...A....|.a.....J|
|000046a0| 16 d4 16 4a 0e d5 ab 8a | 81 a1 00 0e 4a 41 40 42 |...J....|....JA@B|
|000046b0| aa 86 81 5c 5c 00 0e 4a | 38 0e d5 ab 86 0e d4 41 |...\\..J|8......A|
|000046c0| 40 aa 87 81 5c 5c 00 0e | d4 38 43 42 1e d7 81 d8 |@...\\..|.8CB....|
|000046d0| 00 0e d7 81 d9 00 5c 22 | ab a8 dc 20 89 1e 41 43 |......\"|... ..AC|
|000046e0| 0e 9e 42 16 9e 81 4c 00 | 81 52 00 0e 41 0e d1 45 |..B...L.|.R..A..E|
|000046f0| 81 da 00 0e 41 81 d9 00 | 0e d7 23 42 42 16 d7 29 |....A...|..#BB..)|
|00004700| aa 8b 81 4c 00 0e d1 0e | d7 42 42 16 d7 0e d5 ab |...L....|.BB.....|
|00004710| 8b 81 a1 00 0e d7 81 9d | 00 45 aa 82 0e d7 0e 3b |........|.E.....;|
|00004720| 42 16 3b 2d aa fe 0d 81 | db 00 73 ab b2 d7 1e dc |B.;-....|..s.....|
|00004730| 08 40 3a ac 86 c6 81 dd | 00 21 88 08 40 3a ab 8c |.@:.....|.!..@:..|
|00004740| 08 89 41 10 40 0e dc 42 | 16 dc aa 6f 81 a1 00 81 |..A.@..B|...o....|
|00004750| 9d 00 0e dc 42 9f 42 0e | 3b 42 16 3b 29 aa c5 0d |....B.B.|;B.;)...|
|00004760| cf 61 ab a6 0e cb ac 84 | dc 20 16 cb 0e cf ac 84 |.a......|. ......|
|00004770| dc 20 16 cf 81 52 00 0e | cf 08 89 41 10 40 0e cb |. ...R..|...A.@..|
|00004780| d7 af 05 0e 3b 42 16 3b | aa 9a 0d 39 ad 85 0d 81 |....;B.;|...9....|
|00004790| de 00 4e 89 1e 9b ac 87 | c6 81 df 00 0d 5c 22 88 |..N.....|.....\".|
|000047a0| 0e 9b 20 88 29 08 40 81 | 4b 00 61 ad 87 08 41 10 |.. .).@.|K.a...A.|
|000047b0| 81 d2 00 20 2b 87 22 20 | 5b 61 72 67 73 20 28 68 |... +." |[args (h|
|000047c0| 61 73 68 2d 6b 65 79 20 | 68 61 73 68 2d 6b 65 79 |ash-key |hash-key|
|000047d0| 73 20 68 61 73 68 2d 76 | 61 6c 75 65 20 68 61 73 |s hash-v|alue has|
|000047e0| 68 2d 76 61 6c 75 65 73 | 29 20 28 6b 65 79 2d 63 |h-values|) (key-c|
|000047f0| 6f 64 65 20 6b 65 79 2d | 63 6f 64 65 73 20 6b 65 |ode key-|codes ke|
|00004800| 79 2d 73 65 71 20 6b 65 | 79 2d 73 65 71 73 20 6b |y-seq ke|y-seqs k|
|00004810| 65 79 2d 62 69 6e 64 69 | 6e 67 20 6b 65 79 2d 62 |ey-bindi|ng key-b|
|00004820| 69 6e 64 69 6e 67 73 29 | 20 6b 65 79 2d 74 79 70 |indings)| key-typ|
|00004830| 65 73 20 68 61 73 68 2d | 74 79 70 65 73 20 77 6f |es hash-|types wo|
|00004840| 72 64 20 65 72 72 6f 72 | 20 22 4d 61 6c 66 6f 72 |rd error| "Malfor|
|00004850| 6d 65 64 20 60 6c 6f 6f | 70 27 20 6d 61 63 72 6f |med `loo|p' macro|
|00004860| 22 20 6e 61 6d 65 64 20 | 6c 6f 6f 70 2d 6e 61 6d |" named |loop-nam|
|00004870| 65 20 69 6e 69 74 69 61 | 6c 6c 79 20 28 64 6f 20 |e initia|lly (do |
|00004880| 64 6f 69 6e 67 29 20 22 | 53 79 6e 74 61 78 20 65 |doing) "|Syntax e|
|00004890| 72 72 6f 72 20 6f 6e 20 | 60 69 6e 69 74 69 61 6c |rror on |`initial|
|000048a0| 6c 79 27 20 63 6c 61 75 | 73 65 22 20 6c 6f 6f 70 |ly' clau|se" loop|
|000048b0| 2d 69 6e 69 74 69 61 6c | 6c 79 20 66 69 6e 61 6c |-initial|ly final|
|000048c0| 6c 79 20 72 65 74 75 72 | 6e 20 27 6e 69 6c 20 6c |ly retur|n 'nil l|
|000048d0| 6f 6f 70 2d 72 65 73 75 | 6c 74 2d 65 78 70 6c 69 |oop-resu|lt-expli|
|000048e0| 63 69 74 20 28 64 6f 20 | 64 6f 69 6e 67 29 20 22 |cit (do |doing) "|
|000048f0| 53 79 6e 74 61 78 20 65 | 72 72 6f 72 20 6f 6e 20 |Syntax e|rror on |
|00004900| 60 66 69 6e 61 6c 6c 79 | 27 20 63 6c 61 75 73 65 |`finally|' clause|
|00004910| 22 20 27 6e 69 6c 20 6c | 6f 6f 70 2d 66 69 6e 61 |" 'nil l|oop-fina|
|00004920| 6c 6c 79 20 28 66 6f 72 | 20 61 73 29 20 6e 69 6c |lly (for| as) nil|
|00004930| 20 61 6e 64 73 20 6c 6f | 6f 70 2d 66 6f 72 2d 73 | ands lo|op-for-s|
|00004940| 74 65 70 73 20 6c 6f 6f | 70 2d 66 6f 72 2d 73 65 |teps loo|p-for-se|
|00004950| 74 73 20 6c 6f 6f 70 2d | 66 6f 72 2d 62 69 6e 64 |ts loop-|for-bind|
|00004960| 69 6e 67 73 20 67 65 6e | 73 79 6d 20 76 61 72 20 |ings gen|sym var |
|00004970| 62 65 69 6e 67 20 28 74 | 68 65 20 65 61 63 68 29 |being (t|he each)|
|00004980| 20 28 62 75 66 66 65 72 | 20 62 75 66 66 65 72 73 | (buffer| buffers|
|00004990| 29 20 69 6e 20 28 62 75 | 66 66 65 72 2d 6c 69 73 |) in (bu|ffer-lis|
|000049a0| 74 29 20 28 66 72 6f 6d | 20 64 6f 77 6e 66 72 6f |t) (from| downfro|
|000049b0| 6d 20 75 70 66 72 6f 6d | 20 74 6f 20 64 6f 77 6e |m upfrom| to down|
|000049c0| 74 6f 20 75 70 74 6f 20 | 61 62 6f 76 65 20 62 65 |to upto |above be|
|000049d0| 6c 6f 77 20 62 79 29 20 | 28 64 6f 77 6e 74 6f 20 |low by) |(downto |
|000049e0| 61 62 6f 76 65 29 20 22 | 4d 75 73 74 20 73 70 65 |above) "|Must spe|
|000049f0| 63 69 66 79 20 60 66 72 | 6f 6d 27 20 76 61 6c 75 |cify `fr|om' valu|
|00004a00| 65 20 66 6f 72 20 64 6f | 77 6e 77 61 72 64 20 6c |e for do|wnward l|
|00004a10| 6f 6f 70 22 20 64 6f 77 | 6e 66 72 6f 6d 20 28 64 |oop" dow|nfrom (d|
|00004a20| 6f 77 6e 74 6f 20 61 62 | 6f 76 65 29 20 64 6f 77 |ownto ab|ove) dow|
|00004a30| 6e 20 28 61 62 6f 76 65 | 20 62 65 6c 6f 77 29 20 |n (above| below) |
|00004a40| 28 61 62 6f 76 65 20 62 | 65 6c 6f 77 29 20 65 78 |(above b|elow) ex|
|00004a50| 63 6c 20 28 66 72 6f 6d | 20 75 70 66 72 6f 6d 20 |cl (from| upfrom |
|00004a60| 64 6f 77 6e 66 72 6f 6d | 29 20 73 74 61 72 74 20 |downfrom|) start |
|00004a70| 28 74 6f 20 75 70 74 6f | 20 64 6f 77 6e 74 6f 20 |(to upto| downto |
|00004a80| 61 62 6f 76 65 20 62 65 | 6c 6f 77 29 20 65 6e 64 |above be|low) end|
|00004a90| 20 62 79 20 73 74 65 70 | 20 63 6c 2d 63 6f 6e 73 | by step| cl-cons|
|00004aa0| 74 2d 65 78 70 72 2d 70 | 20 65 6e 64 2d 76 61 72 |t-expr-p| end-var|
|00004ab0| 20 73 74 65 70 2d 76 61 | 72 20 30 20 22 4c 6f 6f | step-va|r 0 "Loo|
|00004ac0| 70 20 60 62 79 27 20 76 | 61 6c 75 65 20 69 73 20 |p `by' v|alue is |
|00004ad0| 6e 6f 74 20 70 6f 73 69 | 74 69 76 65 3a 20 25 73 |not posi|tive: %s|
|00004ae0| 22 20 3e 20 3e 3d 20 3c | 20 3c 3d 20 6c 6f 6f 70 |" > >= <| <= loop|
|00004af0| 2d 62 6f 64 79 20 2d 20 | 2b 20 31 20 28 69 6e 20 |-body - |+ 1 (in |
|00004b00| 69 6e 2d 72 65 66 20 6f | 6e 29 20 6f 6e 20 74 65 |in-ref o|n) on te|
|00004b10| 6d 70 20 63 6f 6e 73 70 | 20 69 6e 2d 72 65 66 20 |mp consp| in-ref |
|00004b20| 63 61 72 20 6c 6f 6f 70 | 2d 73 79 6d 62 6f 6c 2d |car loop|-symbol-|
|00004b30| 6d 61 63 73 20 28 71 75 | 6f 74 65 20 66 75 6e 63 |macs (qu|ote func|
|00004b40| 74 69 6f 6e 20 66 75 6e | 63 74 69 6f 6e 2a 29 20 |tion fun|ction*) |
|00004b50| 66 75 6e 63 61 6c 6c 20 | 63 64 72 20 3d 20 74 68 |funcall |cdr = th|
|00004b60| 65 6e 20 61 6e 64 20 69 | 66 20 6c 6f 6f 70 2d 66 |en and i|f loop-f|
|00004b70| 69 72 73 74 2d 66 6c 61 | 67 20 28 61 63 72 6f 73 |irst-fla|g (acros|
|00004b80| 73 20 61 63 72 6f 73 73 | 2d 72 65 66 29 20 74 65 |s across|-ref) te|
|00004b90| 6d 70 2d 69 64 78 20 74 | 65 6d 70 2d 76 65 63 20 |mp-idx t|emp-vec |
|00004ba0| 2d 31 20 73 65 74 71 20 | 31 2b 20 6c 65 6e 67 74 |-1 setq |1+ lengt|
|00004bb0| 68 20 61 63 72 6f 73 73 | 2d 72 65 66 20 61 72 65 |h across|-ref are|
|00004bc0| 66 20 28 65 6c 65 6d 65 | 6e 74 20 65 6c 65 6d 65 |f (eleme|nt eleme|
|00004bd0| 6e 74 73 29 20 28 69 6e | 2d 72 65 66 20 6f 66 2d |nts) (in|-ref of-|
|00004be0| 72 65 66 29 20 28 69 6e | 20 6f 66 29 20 22 45 78 |ref) (in| of) "Ex|
|00004bf0| 70 65 63 74 65 64 20 60 | 6f 66 27 22 20 75 73 69 |pected `|of'" usi|
|00004c00| 6e 67 20 32 20 69 6e 64 | 65 78 20 22 42 61 64 20 |ng 2 ind|ex "Bad |
|00004c10| 60 75 73 69 6e 67 27 20 | 63 6c 61 75 73 65 22 20 |`using' |clause" |
|00004c20| 74 65 6d 70 2d 73 65 71 | 20 73 65 71 20 72 65 66 |temp-seq| seq ref|
|00004c30| 20 74 65 6d 70 2d 6c 65 | 6e 20 65 6c 74 20 6f 72 | temp-le|n elt or|
|00004c40| 20 70 6f 70 20 28 69 6e | 20 6f 66 29 20 74 61 62 | pop (in| of) tab|
|00004c50| 6c 65 20 6f 74 68 65 72 | 20 28 68 61 73 68 2d 76 |le other| (hash-v|
|00004c60| 61 6c 75 65 20 68 61 73 | 68 2d 76 61 6c 75 65 73 |alue has|h-values|
|00004c70| 29 20 6d 61 70 68 61 73 | 68 20 66 75 6e 63 74 69 |) maphas|h functi|
|00004c80| 6f 6e 20 6c 61 6d 62 64 | 61 20 2d 2d 63 6c 2d 6d |on lambd|a --cl-m|
|00004c90| 61 70 20 6c 6f 6f 70 2d | 6d 61 70 2d 66 6f 72 6d |ap loop-|map-form|
|00004ca0| 20 28 73 79 6d 62 6f 6c | 20 70 72 65 73 65 6e 74 | (symbol| present|
|00004cb0| 2d 73 79 6d 62 6f 6c 20 | 65 78 74 65 72 6e 61 6c |-symbol |external|
|00004cc0| 2d 73 79 6d 62 6f 6c 20 | 73 79 6d 62 6f 6c 73 20 |-symbol |symbols |
|00004cd0| 70 72 65 73 65 6e 74 2d | 73 79 6d 62 6f 6c 73 20 |present-|symbols |
|00004ce0| 65 78 74 65 72 6e 61 6c | 2d 73 79 6d 62 6f 6c 73 |external|-symbols|
|00004cf0| 29 20 28 69 6e 20 6f 66 | 29 20 6f 62 20 6d 61 70 |) (in of|) ob map|
|00004d00| 61 74 6f 6d 73 20 28 6f | 76 65 72 6c 61 79 20 6f |atoms (o|verlay o|
|00004d10| 76 65 72 6c 61 79 73 20 | 65 78 74 65 6e 74 20 65 |verlays |extent e|
|00004d20| 78 74 65 6e 74 73 29 20 | 74 6f 20 66 72 6f 6d 20 |xtents) |to from |
|00004d30| 62 75 66 20 28 69 6e 20 | 6f 66 20 66 72 6f 6d 20 |buf (in |of from |
|00004d40| 74 6f 29 20 63 6c 2d 6d | 61 70 2d 65 78 74 65 6e |to) cl-m|ap-exten|
|00004d50| 74 73 20 28 70 72 6f 67 | 6e 20 2e 20 2d 2d 63 6c |ts (prog|n . --cl|
|00004d60| 2d 6d 61 70 29 20 28 69 | 6e 74 65 72 76 61 6c 20 |-map) (i|nterval |
|00004d70| 69 6e 74 65 72 76 61 6c | 73 29 20 76 61 72 32 20 |interval|s) var2 |
|00004d80| 76 61 72 31 20 70 72 6f | 70 20 28 69 6e 20 6f 66 |var1 pro|p (in of|
|00004d90| 20 70 72 6f 70 65 72 74 | 79 20 66 72 6f 6d 20 74 | propert|y from t|
|00004da0| 6f 29 20 70 72 6f 70 65 | 72 74 79 20 63 6f 6e 73 |o) prope|rty cons|
|00004db0| 20 63 6c 2d 6d 61 70 2d | 69 6e 74 65 72 76 61 6c | cl-map-|interval|
|00004dc0| 73 20 28 70 72 6f 67 6e | 20 2e 20 2d 2d 63 6c 2d |s (progn| . --cl-|
|00004dd0| 6d 61 70 29 20 28 69 6e | 20 6f 66 29 20 6d 61 70 |map) (in| of) map|
|00004de0| 20 28 6b 65 79 2d 62 69 | 6e 64 69 6e 67 20 6b 65 | (key-bi|nding ke|
|00004df0| 79 2d 62 69 6e 64 69 6e | 67 73 29 20 28 6b 65 79 |y-bindin|gs) (key|
|00004e00| 2d 73 65 71 20 6b 65 79 | 2d 73 65 71 73 29 20 63 |-seq key|-seqs) c|
|00004e10| 6c 2d 6d 61 70 2d 6b 65 | 79 6d 61 70 2d 72 65 63 |l-map-ke|ymap-rec|
|00004e20| 75 72 73 69 76 65 6c 79 | 20 63 6c 2d 6d 61 70 2d |ursively| cl-map-|
|00004e30| 6b 65 79 6d 61 70 20 28 | 66 72 61 6d 65 20 66 72 |keymap (|frame fr|
|00004e40| 61 6d 65 73 20 73 63 72 | 65 65 6e 20 73 63 72 65 |ames scr|een scre|
|00004e50| 65 6e 73 29 20 63 6c 2d | 65 6d 61 63 73 2d 74 79 |ens) cl-|emacs-ty|
|00004e60| 70 65 20 6c 75 63 69 64 | 20 28 73 65 6c 65 63 74 |pe lucid| (select|
|00004e70| 65 64 2d 73 63 72 65 65 | 6e 29 20 28 73 65 6c 65 |ed-scree|n) (sele|
|00004e80| 63 74 65 64 2d 66 72 61 | 6d 65 29 20 70 72 6f 67 |cted-fra|me) prog|
|00004e90| 31 20 6e 6f 74 20 65 71 | 20 6e 65 78 74 2d 73 63 |1 not eq| next-sc|
|00004ea0| 72 65 65 6e 20 6e 65 78 | 74 2d 66 72 61 6d 65 20 |reen nex|t-frame |
|00004eb0| 28 77 69 6e 64 6f 77 20 | 77 69 6e 64 6f 77 73 29 |(window |windows)|
|00004ec0| 20 28 69 6e 20 6f 66 29 | 20 73 63 72 20 73 63 72 | (in of)| scr scr|
|00004ed0| 65 65 6e 2d 73 65 6c 65 | 63 74 65 64 2d 77 69 6e |een-sele|cted-win|
|00004ee0| 64 6f 77 20 66 72 61 6d | 65 2d 73 65 6c 65 63 74 |dow fram|e-select|
|00004ef0| 65 64 2d 77 69 6e 64 6f | 77 20 28 73 65 6c 65 63 |ed-windo|w (selec|
|00004f00| 74 65 64 2d 77 69 6e 64 | 6f 77 29 20 6e 65 78 74 |ted-wind|ow) next|
|00004f10| 2d 77 69 6e 64 6f 77 20 | 63 6c 2d 6c 6f 6f 70 2d |-window |cl-loop-|
|00004f20| 66 6f 72 2d 68 61 6e 64 | 6c 65 72 20 68 61 6e 64 |for-hand|ler hand|
|00004f30| 6c 65 72 20 22 45 78 70 | 65 63 74 65 64 20 61 20 |ler "Exp|ected a |
|00004f40| 60 66 6f 72 27 20 70 72 | 65 70 6f 73 69 74 69 6f |`for' pr|epositio|
|00004f50| 6e 2c 20 66 6f 75 6e 64 | 20 25 73 22 20 74 20 6c |n, found| %s" t l|
|00004f60| 6f 6f 70 2d 62 69 6e 64 | 69 6e 67 73 20 6d 61 70 |oop-bind|ings map|
|00004f70| 63 61 72 20 6c 69 73 74 | 20 70 72 6f 67 6e 20 63 |car list| progn c|
|00004f80| 6c 2d 6c 6f 6f 70 2d 6c | 65 74 20 70 73 65 74 71 |l-loop-l|et psetq|
|00004f90| 20 61 70 70 6c 79 20 61 | 70 70 65 6e 64 20 6c 6f | apply a|ppend lo|
|00004fa0| 6f 70 2d 73 74 65 70 73 | 20 72 65 70 65 61 74 20 |op-steps| repeat |
|00004fb0| 31 2d 20 63 6f 6c 6c 65 | 63 74 20 63 6c 2d 6c 6f |1- colle|ct cl-lo|
|00004fc0| 6f 70 2d 68 61 6e 64 6c | 65 2d 61 63 63 75 6d 20 |op-handl|e-accum |
|00004fd0| 6e 72 65 76 65 72 73 65 | 20 77 68 61 74 20 6c 6f |nreverse| what lo|
|00004fe0| 6f 70 2d 61 63 63 75 6d | 2d 76 61 72 20 70 75 73 |op-accum|-var pus|
|00004ff0| 68 20 6e 63 6f 6e 63 20 | 28 6e 63 6f 6e 63 20 6e |h nconc |(nconc n|
|00005000| 63 6f 6e 63 69 6e 67 20 | 61 70 70 65 6e 64 20 61 |concing |append a|
|00005010| 70 70 65 6e 64 69 6e 67 | 29 20 28 6e 63 6f 6e 63 |ppending|) (nconc|
|00005020| 20 6e 63 6f 6e 63 69 6e | 67 29 20 72 65 76 65 72 | nconcin|g) rever|
|00005030| 73 65 20 28 6e 63 6f 6e | 63 20 6e 63 6f 6e 63 69 |se (ncon|c nconci|
|00005040| 6e 67 29 20 28 63 6f 6e | 63 61 74 20 63 6f 6e 63 |ng) (con|cat conc|
|00005050| 61 74 69 6e 67 29 20 22 | 22 20 63 61 6c 6c 66 20 |ating) "|" callf |
|00005060| 63 6f 6e 63 61 74 20 28 | 76 63 6f 6e 63 61 74 20 |concat (|vconcat |
|00005070| 76 63 6f 6e 63 61 74 69 | 6e 67 29 20 5b 5d 20 76 |vconcati|ng) [] v|
|00005080| 63 6f 6e 63 61 74 20 28 | 73 75 6d 20 73 75 6d 6d |concat (|sum summ|
|00005090| 69 6e 67 29 20 69 6e 63 | 66 20 28 63 6f 75 6e 74 |ing) inc|f (count|
|000050a0| 20 63 6f 75 6e 74 69 6e | 67 29 20 28 6d 69 6e 69 | countin|g) (mini|
|000050b0| 6d 69 7a 65 20 6d 69 6e | 69 6d 69 7a 69 6e 67 20 |mize min|imizing |
|000050c0| 6d 61 78 69 6d 69 7a 65 | 20 6d 61 78 69 6d 69 7a |maximize| maximiz|
|000050d0| 69 6e 67 29 20 63 6c 2d | 73 69 6d 70 6c 65 2d 65 |ing) cl-|simple-e|
|000050e0| 78 70 72 2d 70 20 69 6e | 74 65 72 6e 20 73 79 6d |xpr-p in|tern sym|
|000050f0| 62 6f 6c 2d 6e 61 6d 65 | 20 33 20 66 75 6e 63 20 |bol-name| 3 func |
|00005100| 73 65 74 20 6c 65 74 20 | 77 69 74 68 20 62 69 6e |set let |with bin|
|00005110| 64 69 6e 67 73 20 77 68 | 69 6c 65 20 75 6e 74 69 |dings wh|ile unti|
|00005120| 6c 20 61 6c 77 61 79 73 | 20 6c 6f 6f 70 2d 66 69 |l always| loop-fi|
|00005130| 6e 69 73 68 2d 66 6c 61 | 67 20 6c 6f 6f 70 2d 72 |nish-fla|g loop-r|
|00005140| 65 73 75 6c 74 20 6e 65 | 76 65 72 20 74 68 65 72 |esult ne|ver ther|
|00005150| 65 69 73 20 6c 6f 6f 70 | 2d 72 65 73 75 6c 74 2d |eis loop|-result-|
|00005160| 76 61 72 20 28 69 66 20 | 77 68 65 6e 20 75 6e 6c |var (if |when unl|
|00005170| 65 73 73 29 20 63 6f 6e | 64 20 63 6c 2d 70 61 72 |ess) con|d cl-par|
|00005180| 73 65 2d 6c 6f 6f 70 2d | 63 6c 61 75 73 65 20 63 |se-loop-|clause c|
|00005190| 6c 2d 6c 6f 6f 70 2d 62 | 75 69 6c 64 2d 61 6e 64 |l-loop-b|uild-and|
|000051a0| 73 20 65 6c 73 65 20 73 | 69 6d 70 6c 65 20 75 6e |s else s|imple un|
|000051b0| 6c 65 73 73 20 66 6f 72 | 6d 20 63 6c 2d 65 78 70 |less for|m cl-exp|
|000051c0| 72 2d 63 6f 6e 74 61 69 | 6e 73 20 69 74 20 73 75 |r-contai|ns it su|
|000051d0| 62 73 74 20 28 64 6f 20 | 64 6f 69 6e 67 29 20 62 |bst (do |doing) b|
|000051e0| 6f 64 79 20 22 53 79 6e | 74 61 78 20 65 72 72 6f |ody "Syn|tax erro|
|000051f0| 72 20 6f 6e 20 60 64 6f | 27 20 63 6c 61 75 73 65 |r on `do|' clause|
|00005200| 22 20 63 6c 2d 6c 6f 6f | 70 2d 68 61 6e 64 6c 65 |" cl-loo|p-handle|
|00005210| 72 20 22 45 78 70 65 63 | 74 65 64 20 61 20 6c 6f |r "Expec|ted a lo|
|00005220| 6f 70 20 6b 65 79 77 6f | 72 64 2c 20 66 6f 75 6e |op keywo|rd, foun|
|00005230| 64 20 25 73 22 5d 20 39 | 5d 29 0a 28 64 65 66 61 |d %s"] 9|]).(defa|
|00005240| 6c 69 61 73 20 27 63 6c | 2d 6c 6f 6f 70 2d 6c 65 |lias 'cl|-loop-le|
|00005250| 74 20 23 5b 28 73 70 65 | 63 73 20 62 6f 64 79 20 |t #[(spe|cs body |
|00005260| 70 61 72 29 20 22 08 c1 | 89 1a 1b 89 1c ab 92 0c |par) "..|........|
|00005270| 40 a2 39 ac 86 0c 40 41 | 40 ac 86 0c 41 89 14 ac |@.9...@A|@...A...|
|00005280| 6e 0d ab ad 0c ab aa c1 | 15 08 89 14 ab a3 c6 0c |n.......|........|
|00005290| 40 41 40 21 ac 95 c7 20 | 89 1e 08 0c 40 41 40 44 |@A@!... |....@A@D|
|000052a0| 0b 42 13 0c 40 41 0e 08 | a0 88 29 0c 41 89 14 ac |.B..@A..|..).A...|
|000052b0| 5d 08 ab f6 08 40 3a ab | e7 08 40 40 3c ab e1 08 |]....@:.|..@@<...|
|000052c0| 40 40 1e 09 c1 1e 5c 6e | 08 89 41 10 40 41 40 1e |@@....\n|..A.@A@.|
|000052d0| 0b 0e 09 0e 0c b7 ae 93 | 0e 09 cd 0e 09 ce 5c 22 |........|......\"|
|000052e0| ae 82 c7 20 42 0e 0c 42 | 89 16 0c 40 41 89 1e 08 |... B..B|...@A...|
|000052f0| 0e 0b 44 5c 6e 42 12 0e | 09 3a ab 9e 0e 09 89 41 |..D\nB..|.:.....A|
|00005300| 16 09 40 0e 0b ad 8b 0e | 09 ab 83 cf aa 81 d0 0e |..@.....|........|
|00005310| 08 44 44 0e 5c 6e 42 16 | 5c 6e aa 5d 0e 5c 6e 9f |.DD.\nB.|\n.].\n.|
|00005320| 08 a4 10 2c aa 11 08 89 | 41 10 40 5c 6e 42 12 aa |...,....|A.@\nB..|
|00005330| 07 0e 11 d2 61 ab 9f 0d | ab 83 d3 aa 81 d2 d4 d5 |....a...|........|
|00005340| 5c 6e 9f 5c 22 42 1e 16 | 0b ab 88 d7 0b 9f 0e 16 |\n.\"B..|........|
|00005350| 45 aa 82 0e 16 29 aa 90 | 0d ab 83 d8 aa 81 d7 0b |E....)..|........|
|00005360| 9f 5c 6e 9f a4 0e 11 42 | 42 2b 87 22 20 5b 73 70 |.\n....B|B+." [sp|
|00005370| 65 63 73 20 6e 69 6c 20 | 6e 65 77 20 74 65 6d 70 |ecs nil |new temp|
|00005380| 73 20 70 20 70 61 72 20 | 63 6c 2d 63 6f 6e 73 74 |s p par |cl-const|
|00005390| 2d 65 78 70 72 2d 70 20 | 67 65 6e 73 79 6d 20 74 |-expr-p |gensym t|
|000053a0| 65 6d 70 20 73 70 65 63 | 20 6e 73 70 65 63 73 20 |emp spec| nspecs |
|000053b0| 65 78 70 72 20 6c 6f 6f | 70 2d 64 65 73 74 72 2d |expr loo|p-destr-|
|000053c0| 74 65 6d 70 73 20 6c 61 | 73 74 20 30 20 70 6f 70 |temps la|st 0 pop|
|000053d0| 20 63 61 72 20 62 6f 64 | 79 20 73 65 74 71 20 70 | car bod|y setq p|
|000053e0| 73 65 74 71 20 61 70 70 | 6c 79 20 6e 63 6f 6e 63 |setq app|ly nconc|
|000053f0| 20 73 65 74 20 6c 65 74 | 2a 20 6c 65 74 5d 20 35 | set let|* let] 5|
|00005400| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6c |]).(defa|lias 'cl|
|00005410| 2d 6c 6f 6f 70 2d 68 61 | 6e 64 6c 65 2d 61 63 63 |-loop-ha|ndle-acc|
|00005420| 75 6d 20 23 5b 28 64 65 | 66 20 26 6f 70 74 69 6f |um #[(de|f &optio|
|00005430| 6e 61 6c 20 66 75 6e 63 | 29 20 22 08 40 c1 61 ab |nal func|) ".@.a.|
|00005440| 9b 08 41 40 08 41 41 10 | 89 1a 0b 73 ac 8b 5c 6e |..A@.AA.|...s..\n|
|00005450| 0c 44 43 0d 42 15 5c 6e | 0b 42 13 5c 6e 29 87 0e |.DC.B.\n|.B.\n)..|
|00005460| 06 ae 9c c7 20 89 16 06 | 0c 44 43 0d 42 15 0e 08 |.... ...|.DC.B...|
|00005470| ab 87 0e 08 0e 06 44 aa | 82 0e 06 16 09 0e 06 87 |......D.|........|
|00005480| 22 20 5b 61 72 67 73 20 | 69 6e 74 6f 20 76 61 72 |" [args |into var|
|00005490| 20 6c 6f 6f 70 2d 61 63 | 63 75 6d 2d 76 61 72 73 | loop-ac|cum-vars|
|000054a0| 20 64 65 66 20 6c 6f 6f | 70 2d 62 69 6e 64 69 6e | def loo|p-bindin|
|000054b0| 67 73 20 6c 6f 6f 70 2d | 61 63 63 75 6d 2d 76 61 |gs loop-|accum-va|
|000054c0| 72 20 67 65 6e 73 79 6d | 20 66 75 6e 63 20 6c 6f |r gensym| func lo|
|000054d0| 6f 70 2d 72 65 73 75 6c | 74 5d 20 33 5d 29 0a 28 |op-resul|t] 3]).(|
|000054e0| 64 65 66 61 6c 69 61 73 | 20 27 63 6c 2d 6c 6f 6f |defalias| 'cl-loo|
|000054f0| 70 2d 62 75 69 6c 64 2d | 61 6e 64 73 20 23 5b 28 |p-build-|ands #[(|
|00005500| 63 6c 61 75 73 65 73 29 | 20 22 c0 89 19 1a 0b ab |clauses)| "......|
|00005510| c8 0b 40 a2 c4 61 ab b7 | c5 0b 40 21 40 c6 61 ab |..@..a..|..@!@.a.|
|00005520| ae 0b 41 ab 9f c7 0b 40 | 21 0b 41 40 a2 c4 61 ab |..A....@|!.A@..a.|
|00005530| 86 0b 41 40 41 aa 84 0b | 41 40 43 a4 0b 41 41 42 |..A@A...|A@C..AAB|
|00005540| 89 13 aa 4b c7 0b 89 41 | 13 40 21 41 11 aa 3f 0b |...K...A|.@!A..?.|
|00005550| 89 41 13 40 5c 6e 42 12 | aa 35 5c 6e 9f ae 82 c6 |.A.@\nB.|.5\n....|
|00005560| 43 89 12 41 ab 85 c8 5c | 6e 42 aa 82 5c 6e 40 09 |C..A...\|nB..\n@.|
|00005570| 89 ab 8c c9 5c 6e c4 c9 | 09 ca 5c 22 42 43 5c 22 |....\n..|..\"BC\"|
|00005580| aa 81 5c 6e 89 1e 0b 41 | ab 86 c8 0e 0b 42 aa 83 |..\n...A|.....B..|
|00005590| 0e 0b 40 29 45 2a 87 22 | 20 5b 6e 69 6c 20 62 6f |..@)E*."| [nil bo|
|000055a0| 64 79 20 61 6e 64 73 20 | 63 6c 61 75 73 65 73 20 |dy ands |clauses |
|000055b0| 70 72 6f 67 6e 20 6c 61 | 73 74 20 74 20 62 75 74 |progn la|st t but|
|000055c0| 6c 61 73 74 20 61 6e 64 | 20 61 70 70 65 6e 64 20 |last and| append |
|000055d0| 28 74 29 20 66 75 6c 6c | 5d 20 39 5d 29 0a 23 40 |(t) full|] 9]).#@|
|000055e0| 39 38 20 54 68 65 20 43 | 6f 6d 6d 6f 6e 20 4c 69 |98 The C|ommon Li|
|000055f0| 73 70 20 60 64 6f 27 20 | 6c 6f 6f 70 2e 0a 46 6f |sp `do' |loop..Fo|
|00005600| 72 6d 61 74 20 69 73 3a | 20 28 64 6f 20 28 28 56 |rmat is:| (do ((V|
|00005610| 41 52 20 49 4e 49 54 20 | 5b 53 54 45 50 5d 29 2e |AR INIT |[STEP]).|
|00005620| 2e 2e 29 20 28 45 4e 44 | 2d 54 45 53 54 20 5b 52 |..) (END|-TEST [R|
|00005630| 45 53 55 4c 54 2e 2e 2e | 5d 29 20 42 4f 44 59 2e |ESULT...|]) BODY.|
|00005640| 2e 2e 29 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |..)..(de|falias '|
|00005650| 64 6f 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |do '(mac|ro . #[(|
|00005660| 73 74 65 70 73 20 65 6e | 64 74 65 73 74 20 26 72 |steps en|dtest &r|
|00005670| 65 73 74 20 62 6f 64 79 | 29 20 22 c0 09 5c 6e 0b |est body|) "..\n.|
|00005680| c4 24 87 22 20 5b 63 6c | 2d 65 78 70 61 6e 64 2d |.$." [cl|-expand-|
|00005690| 64 6f 2d 6c 6f 6f 70 20 | 73 74 65 70 73 20 65 6e |do-loop |steps en|
|000056a0| 64 74 65 73 74 20 62 6f | 64 79 20 6e 69 6c 5d 20 |dtest bo|dy nil] |
|000056b0| 35 20 28 23 24 20 2e 20 | 32 31 39 38 37 29 5d 29 |5 (#$ . |21987)])|
|000056c0| 29 0a 23 40 31 30 30 20 | 54 68 65 20 43 6f 6d 6d |).#@100 |The Comm|
|000056d0| 6f 6e 20 4c 69 73 70 20 | 60 64 6f 2a 27 20 6c 6f |on Lisp |`do*' lo|
|000056e0| 6f 70 2e 0a 46 6f 72 6d | 61 74 20 69 73 3a 20 28 |op..Form|at is: (|
|000056f0| 64 6f 2a 20 28 28 56 41 | 52 20 49 4e 49 54 20 5b |do* ((VA|R INIT [|
|00005700| 53 54 45 50 5d 29 2e 2e | 2e 29 20 28 45 4e 44 2d |STEP])..|.) (END-|
|00005710| 54 45 53 54 20 5b 52 45 | 53 55 4c 54 2e 2e 2e 5d |TEST [RE|SULT...]|
|00005720| 29 20 42 4f 44 59 2e 2e | 2e 29 1f 0a 28 64 65 66 |) BODY..|.)..(def|
|00005730| 61 6c 69 61 73 20 27 64 | 6f 2a 20 27 28 6d 61 63 |alias 'd|o* '(mac|
|00005740| 72 6f 20 2e 20 23 5b 28 | 73 74 65 70 73 20 65 6e |ro . #[(|steps en|
|00005750| 64 74 65 73 74 20 26 72 | 65 73 74 20 62 6f 64 79 |dtest &r|est body|
|00005760| 29 20 22 c0 09 5c 6e 0b | c4 24 87 22 20 5b 63 6c |) "..\n.|.$." [cl|
|00005770| 2d 65 78 70 61 6e 64 2d | 64 6f 2d 6c 6f 6f 70 20 |-expand-|do-loop |
|00005780| 73 74 65 70 73 20 65 6e | 64 74 65 73 74 20 62 6f |steps en|dtest bo|
|00005790| 64 79 20 74 5d 20 35 20 | 28 23 24 20 2e 20 32 32 |dy t] 5 |(#$ . 22|
|000057a0| 32 31 36 29 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |216)])).|(defalia|
|000057b0| 73 20 27 63 6c 2d 65 78 | 70 61 6e 64 2d 64 6f 2d |s 'cl-ex|pand-do-|
|000057c0| 6c 6f 6f 70 20 23 5b 28 | 73 74 65 70 73 20 65 6e |loop #[(|steps en|
|000057d0| 64 74 65 73 74 20 62 6f | 64 79 20 73 74 61 72 29 |dtest bo|dy star)|
|000057e0| 20 22 c0 c1 5c 6e ab 83 | c3 aa 81 c4 c5 c6 0e 07 | "..\n..|........|
|000057f0| 5c 22 c8 c9 0e 5c 6e 40 | 44 cb 0e 0c c5 cd 0e 07 |\"...\n@|D.......|
|00005800| 5c 22 1e 0e cf c1 0e 0e | 5c 22 89 16 0e ad 93 5c |\"......|\".....\|
|00005810| 6e ac 85 0e 0e 41 ac 83 | d0 aa 81 d1 d2 cb 0e 0e |n....A..|........|
|00005820| 5c 22 42 43 29 5c 22 42 | 42 0e 5c 6e 41 ae 81 d3 |\"BC)\"B|B.\nA...|
|00005830| 42 42 42 45 87 22 20 5b | 62 6c 6f 63 6b 20 6e 69 |BBBE." [|block ni|
|00005840| 6c 20 73 74 61 72 20 6c | 65 74 2a 20 6c 65 74 20 |l star l|et* let |
|00005850| 6d 61 70 63 61 72 20 23 | 5b 28 63 29 20 22 08 3a |mapcar #|[(c) ".:|
|00005860| ab 87 08 40 08 41 40 44 | 87 08 87 22 20 5b 63 5d |...@.A@D|..." [c]|
|00005870| 20 32 5d 20 73 74 65 70 | 73 20 77 68 69 6c 65 20 | 2] step|s while |
|00005880| 6e 6f 74 20 65 6e 64 74 | 65 73 74 20 61 70 70 65 |not endt|est appe|
|00005890| 6e 64 20 62 6f 64 79 20 | 23 5b 28 63 29 20 22 08 |nd body |#[(c) ".|
|000058a0| 3a ad 8b 08 41 41 ad 86 | 08 40 c1 08 38 44 87 22 |:...AA..|.@..8D."|
|000058b0| 20 5b 63 20 32 5d 20 33 | 5d 20 73 65 74 73 20 64 | [c 2] 3|] sets d|
|000058c0| 65 6c 71 20 73 65 74 71 | 20 70 73 65 74 71 20 61 |elq setq| psetq a|
|000058d0| 70 70 6c 79 20 28 6e 69 | 6c 29 5d 20 31 33 5d 29 |pply (ni|l)] 13])|
|000058e0| 0a 23 40 31 37 35 20 28 | 64 6f 6c 69 73 74 20 28 |.#@175 (|dolist (|
|000058f0| 56 41 52 20 4c 49 53 54 | 20 5b 52 45 53 55 4c 54 |VAR LIST| [RESULT|
|00005900| 5d 29 20 42 4f 44 59 2e | 2e 2e 29 3a 20 6c 6f 6f |]) BODY.|..): loo|
|00005910| 70 20 6f 76 65 72 20 61 | 20 6c 69 73 74 2e 0a 45 |p over a| list..E|
|00005920| 76 61 6c 75 61 74 65 20 | 42 4f 44 59 20 77 69 74 |valuate |BODY wit|
|00005930| 68 20 56 41 52 20 62 6f | 75 6e 64 20 74 6f 20 65 |h VAR bo|und to e|
|00005940| 61 63 68 20 60 63 61 72 | 27 20 66 72 6f 6d 20 4c |ach `car|' from L|
|00005950| 49 53 54 2c 20 69 6e 20 | 74 75 72 6e 2e 0a 54 68 |IST, in |turn..Th|
|00005960| 65 6e 20 65 76 61 6c 75 | 61 74 65 20 52 45 53 55 |en evalu|ate RESU|
|00005970| 4c 54 20 74 6f 20 67 65 | 74 20 72 65 74 75 72 6e |LT to ge|t return|
|00005980| 20 76 61 6c 75 65 2c 20 | 64 65 66 61 75 6c 74 20 | value, |default |
|00005990| 6e 69 6c 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil...(d|efalias |
|000059a0| 27 64 6f 6c 69 73 74 20 | 27 28 6d 61 63 72 6f 20 |'dolist |'(macro |
|000059b0| 2e 20 23 5b 28 73 70 65 | 63 20 26 72 65 73 74 20 |. #[(spe|c &rest |
|000059c0| 62 6f 64 79 29 20 22 c0 | c1 21 1a c3 c4 c5 5c 6e |body) ".|.!....\n|
|000059d0| 0e 06 41 40 44 0e 06 40 | 44 c7 5c 6e c8 0e 06 40 |..A@D..@|D.\n...@|
|000059e0| c9 5c 6e 44 45 ca 0e 0b | c8 5c 6e cc 5c 6e 44 45 |.\nDE...|.\n.\nDE|
|000059f0| 43 5c 22 42 42 42 0e 06 | 41 41 ab 8d c8 0e 06 40 |C\"BBB..|AA.....@|
|00005a00| c4 45 0e 06 41 41 42 aa | 81 cd 42 42 42 45 29 87 |.E..AAB.|..BBBE).|
|00005a10| 22 20 5b 67 65 6e 73 79 | 6d 20 22 2d 2d 64 6f 6c |" [gensy|m "--dol|
|00005a20| 69 73 74 2d 74 65 6d 70 | 2d 2d 22 20 74 65 6d 70 |ist-temp|--" temp|
|00005a30| 20 62 6c 6f 63 6b 20 6e | 69 6c 20 6c 65 74 20 73 | block n|il let s|
|00005a40| 70 65 63 20 77 68 69 6c | 65 20 73 65 74 71 20 63 |pec whil|e setq c|
|00005a50| 61 72 20 61 70 70 65 6e | 64 20 62 6f 64 79 20 63 |ar appen|d body c|
|00005a60| 64 72 20 28 6e 69 6c 29 | 5d 20 31 33 20 28 23 24 |dr (nil)|] 13 (#$|
|00005a70| 20 2e 20 32 32 37 35 39 | 29 5d 29 29 0a 23 40 32 | . 22759|)])).#@2|
|00005a80| 32 31 20 28 64 6f 74 69 | 6d 65 73 20 28 56 41 52 |21 (doti|mes (VAR|
|00005a90| 20 43 4f 55 4e 54 20 5b | 52 45 53 55 4c 54 5d 29 | COUNT [|RESULT])|
|00005aa0| 20 42 4f 44 59 2e 2e 2e | 29 3a 20 6c 6f 6f 70 20 | BODY...|): loop |
|00005ab0| 61 20 63 65 72 74 61 69 | 6e 20 6e 75 6d 62 65 72 |a certai|n number|
|00005ac0| 20 6f 66 20 74 69 6d 65 | 73 2e 0a 45 76 61 6c 75 | of time|s..Evalu|
|00005ad0| 61 74 65 20 42 4f 44 59 | 20 77 69 74 68 20 56 41 |ate BODY| with VA|
|00005ae0| 52 20 62 6f 75 6e 64 20 | 74 6f 20 73 75 63 63 65 |R bound |to succe|
|00005af0| 73 73 69 76 65 20 69 6e | 74 65 67 65 72 73 20 66 |ssive in|tegers f|
|00005b00| 72 6f 6d 20 30 2c 20 69 | 6e 63 6c 75 73 69 76 65 |rom 0, i|nclusive|
|00005b10| 2c 0a 74 6f 20 43 4f 55 | 4e 54 2c 20 65 78 63 6c |,.to COU|NT, excl|
|00005b20| 75 73 69 76 65 2e 20 20 | 54 68 65 6e 20 65 76 61 |usive.  |Then eva|
|00005b30| 6c 75 61 74 65 20 52 45 | 53 55 4c 54 20 74 6f 20 |luate RE|SULT to |
|00005b40| 67 65 74 20 72 65 74 75 | 72 6e 20 76 61 6c 75 65 |get retu|rn value|
|00005b50| 2c 20 64 65 66 61 75 6c | 74 0a 6e 69 6c 2e 1f 0a |, defaul|t.nil...|
|00005b60| 28 64 65 66 61 6c 69 61 | 73 20 27 64 6f 74 69 6d |(defalia|s 'dotim|
|00005b70| 65 73 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |es '(mac|ro . #[(|
|00005b80| 73 70 65 63 20 26 72 65 | 73 74 20 62 6f 64 79 29 |spec &re|st body)|
|00005b90| 20 22 c0 c1 21 1a c3 c4 | c5 5c 6e 0e 06 41 40 44 | "..!...|.\n..A@D|
|00005ba0| 0e 06 40 c7 44 44 c8 c9 | 0e 06 40 5c 6e 45 ca 0e |..@.DD..|..@\nE..|
|00005bb0| 0b cc 0e 06 40 44 43 5c | 22 42 42 0e 06 41 41 ae |....@DC\|"BB..AA.|
|00005bc0| 81 cd 42 42 42 45 29 87 | 22 20 5b 67 65 6e 73 79 |..BBBE).|" [gensy|
|00005bd0| 6d 20 22 2d 2d 64 6f 74 | 69 6d 65 73 2d 74 65 6d |m "--dot|imes-tem|
|00005be0| 70 2d 2d 22 20 74 65 6d | 70 20 62 6c 6f 63 6b 20 |p--" tem|p block |
|00005bf0| 6e 69 6c 20 6c 65 74 20 | 73 70 65 63 20 30 20 77 |nil let |spec 0 w|
|00005c00| 68 69 6c 65 20 3c 20 61 | 70 70 65 6e 64 20 62 6f |hile < a|ppend bo|
|00005c10| 64 79 20 69 6e 63 66 20 | 28 6e 69 6c 29 5d 20 31 |dy incf |(nil)] 1|
|00005c20| 30 20 28 23 24 20 2e 20 | 32 33 31 37 31 29 5d 29 |0 (#$ . |23171)])|
|00005c30| 29 0a 23 40 31 35 36 20 | 28 64 6f 73 79 6d 62 6f |).#@156 |(dosymbo|
|00005c40| 6c 73 20 28 56 41 52 20 | 5b 4f 42 41 52 52 41 59 |ls (VAR |[OBARRAY|
|00005c50| 20 5b 52 45 53 55 4c 54 | 5d 5d 29 20 42 4f 44 59 | [RESULT|]]) BODY|
|00005c60| 2e 2e 2e 29 3a 20 6c 6f | 6f 70 20 6f 76 65 72 20 |...): lo|op over |
|00005c70| 61 6c 6c 20 73 79 6d 62 | 6f 6c 73 2e 0a 45 76 61 |all symb|ols..Eva|
|00005c80| 6c 75 61 74 65 20 42 4f | 44 59 20 77 69 74 68 20 |luate BO|DY with |
|00005c90| 56 41 52 20 62 6f 75 6e | 64 20 74 6f 20 65 61 63 |VAR boun|d to eac|
|00005ca0| 68 20 69 6e 74 65 72 6e | 65 64 20 73 79 6d 62 6f |h intern|ed symbo|
|00005cb0| 6c 2c 20 6f 72 20 74 6f | 20 65 61 63 68 20 73 79 |l, or to| each sy|
|00005cc0| 6d 62 6f 6c 0a 66 72 6f | 6d 20 4f 42 41 52 52 41 |mbol.fro|m OBARRA|
|00005cd0| 59 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 64 |Y...(def|alias 'd|
|00005ce0| 6f 2d 73 79 6d 62 6f 6c | 73 20 27 28 6d 61 63 72 |o-symbol|s '(macr|
|00005cf0| 6f 20 2e 20 23 5b 28 73 | 70 65 63 20 26 72 65 73 |o . #[(s|pec &res|
|00005d00| 74 20 62 6f 64 79 29 20 | 22 c0 c1 c2 0b 40 43 c4 |t body) |"....@C.|
|00005d10| c5 c6 0b 40 43 0e 07 42 | 42 44 0b 41 40 ad 84 0b |...@C..B|BD.A@...|
|00005d20| 41 40 43 42 42 0b 41 41 | 40 46 45 87 22 20 5b 62 |A@CBB.AA|@FE." [b|
|00005d30| 6c 6f 63 6b 20 6e 69 6c | 20 6c 65 74 20 73 70 65 |lock nil| let spe|
|00005d40| 63 20 6d 61 70 61 74 6f | 6d 73 20 66 75 6e 63 74 |c mapato|ms funct|
|00005d50| 69 6f 6e 20 6c 61 6d 62 | 64 61 20 62 6f 64 79 5d |ion lamb|da body]|
|00005d60| 20 39 20 28 23 24 20 2e | 20 32 33 36 30 38 29 5d | 9 (#$ .| 23608)]|
|00005d70| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 6f |)).(defa|lias 'do|
|00005d80| 2d 61 6c 6c 2d 73 79 6d | 62 6f 6c 73 20 27 28 6d |-all-sym|bols '(m|
|00005d90| 61 63 72 6f 20 2e 20 23 | 5b 28 73 70 65 63 20 26 |acro . #|[(spec &|
|00005da0| 72 65 73 74 20 62 6f 64 | 79 29 20 22 c0 09 40 c2 |rest bod|y) "..@.|
|00005db0| 09 41 40 45 0b 42 42 87 | 22 20 5b 64 6f 2d 73 79 |.A@E.BB.|" [do-sy|
|00005dc0| 6d 62 6f 6c 73 20 73 70 | 65 63 20 6e 69 6c 20 62 |mbols sp|ec nil b|
|00005dd0| 6f 64 79 5d 20 34 5d 29 | 29 0a 23 40 32 30 35 20 |ody] 4])|).#@205 |
|00005de0| 28 70 73 65 74 71 20 53 | 59 4d 20 56 41 4c 20 53 |(psetq S|YM VAL S|
|00005df0| 59 4d 20 56 41 4c 20 2e | 2e 2e 29 3a 20 73 65 74 |YM VAL .|..): set|
|00005e00| 20 53 59 4d 73 20 74 6f | 20 74 68 65 20 76 61 6c | SYMs to| the val|
|00005e10| 75 65 73 20 56 41 4c 73 | 20 69 6e 20 70 61 72 61 |ues VALs| in para|
|00005e20| 6c 6c 65 6c 2e 0a 54 68 | 69 73 20 69 73 20 6c 69 |llel..Th|is is li|
|00005e30| 6b 65 20 60 73 65 74 71 | 27 2c 20 65 78 63 65 70 |ke `setq|', excep|
|00005e40| 74 20 74 68 61 74 20 61 | 6c 6c 20 56 41 4c 20 66 |t that a|ll VAL f|
|00005e50| 6f 72 6d 73 20 61 72 65 | 20 65 76 61 6c 75 61 74 |orms are| evaluat|
|00005e60| 65 64 20 28 69 6e 20 6f | 72 64 65 72 29 0a 62 65 |ed (in o|rder).be|
|00005e70| 66 6f 72 65 20 61 73 73 | 69 67 6e 69 6e 67 20 61 |fore ass|igning a|
|00005e80| 6e 79 20 73 79 6d 62 6f | 6c 73 20 53 59 4d 20 74 |ny symbo|ls SYM t|
|00005e90| 6f 20 74 68 65 20 63 6f | 72 72 65 73 70 6f 6e 64 |o the co|rrespond|
|00005ea0| 69 6e 67 20 76 61 6c 75 | 65 73 2e 1f 0a 28 64 65 |ing valu|es...(de|
|00005eb0| 66 61 6c 69 61 73 20 27 | 70 73 65 74 71 20 27 28 |falias '|psetq '(|
|00005ec0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 26 72 65 73 74 |macro . |#[(&rest|
|00005ed0| 20 61 72 67 73 29 20 22 | c0 09 42 87 22 20 5b 70 | args) "|..B." [p|
|00005ee0| 73 65 74 66 20 61 72 67 | 73 5d 20 32 20 28 23 24 |setf arg|s] 2 (#$|
|00005ef0| 20 2e 20 32 34 30 33 32 | 29 5d 29 29 0a 23 40 34 | . 24032|)])).#@4|
|00005f00| 34 34 20 28 70 72 6f 67 | 76 20 53 59 4d 42 4f 4c |44 (prog|v SYMBOL|
|00005f10| 53 20 56 41 4c 55 45 53 | 20 42 4f 44 59 2e 2e 2e |S VALUES| BODY...|
|00005f20| 29 3a 20 62 69 6e 64 20 | 53 59 4d 42 4f 4c 53 20 |): bind |SYMBOLS |
|00005f30| 74 6f 20 56 41 4c 55 45 | 53 20 64 79 6e 61 6d 69 |to VALUE|S dynami|
|00005f40| 63 61 6c 6c 79 20 69 6e | 20 42 4f 44 59 2e 0a 54 |cally in| BODY..T|
|00005f50| 68 65 20 66 6f 72 6d 73 | 20 53 59 4d 42 4f 4c 53 |he forms| SYMBOLS|
|00005f60| 20 61 6e 64 20 56 41 4c | 55 45 53 20 61 72 65 20 | and VAL|UES are |
|00005f70| 65 76 61 6c 75 61 74 65 | 64 2c 20 61 6e 64 20 6d |evaluate|d, and m|
|00005f80| 75 73 74 20 65 76 61 6c | 75 61 74 65 20 74 6f 20 |ust eval|uate to |
|00005f90| 6c 69 73 74 73 2e 0a 45 | 61 63 68 20 53 59 4d 42 |lists..E|ach SYMB|
|00005fa0| 4f 4c 20 69 6e 20 74 68 | 65 20 66 69 72 73 74 20 |OL in th|e first |
|00005fb0| 6c 69 73 74 20 69 73 20 | 62 6f 75 6e 64 20 74 6f |list is |bound to|
|00005fc0| 20 74 68 65 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 | the cor|respondi|
|00005fd0| 6e 67 20 56 41 4c 55 45 | 20 69 6e 20 74 68 65 0a |ng VALUE| in the.|
|00005fe0| 73 65 63 6f 6e 64 20 6c | 69 73 74 20 28 6f 72 20 |second l|ist (or |
|00005ff0| 6d 61 64 65 20 75 6e 62 | 6f 75 6e 64 20 69 66 20 |made unb|ound if |
|00006000| 56 41 4c 55 45 53 20 69 | 73 20 73 68 6f 72 74 65 |VALUES i|s shorte|
|00006010| 72 20 74 68 61 6e 20 53 | 59 4d 42 4f 4c 53 29 3b |r than S|YMBOLS);|
|00006020| 20 74 68 65 6e 20 74 68 | 65 0a 42 4f 44 59 20 66 | then th|e.BODY f|
|00006030| 6f 72 6d 73 20 61 72 65 | 20 65 78 65 63 75 74 65 |orms are| execute|
|00006040| 64 20 61 6e 64 20 74 68 | 65 69 72 20 72 65 73 75 |d and th|eir resu|
|00006050| 6c 74 20 69 73 20 72 65 | 74 75 72 6e 65 64 2e 20 |lt is re|turned. |
|00006060| 20 54 68 69 73 20 69 73 | 20 6d 75 63 68 20 6c 69 | This is| much li|
|00006070| 6b 65 0a 61 20 60 6c 65 | 74 27 20 66 6f 72 6d 2c |ke.a `le|t' form,|
|00006080| 20 65 78 63 65 70 74 20 | 74 68 61 74 20 74 68 65 | except |that the|
|00006090| 20 6c 69 73 74 20 6f 66 | 20 73 79 6d 62 6f 6c 73 | list of| symbols|
|000060a0| 20 63 61 6e 20 62 65 20 | 63 6f 6d 70 75 74 65 64 | can be |computed|
|000060b0| 20 61 74 20 72 75 6e 2d | 74 69 6d 65 2e 1f 0a 28 | at run-|time...(|
|000060c0| 64 65 66 61 6c 69 61 73 | 20 27 70 72 6f 67 76 20 |defalias| 'progv |
|000060d0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 73 79 6d |'(macro |. #[(sym|
|000060e0| 62 6f 6c 73 20 76 61 6c | 75 65 73 20 26 72 65 73 |bols val|ues &res|
|000060f0| 74 20 62 6f 64 79 29 20 | 22 c0 c1 c2 c3 c4 0d 0e |t body) |".......|
|00006100| 06 45 0e 07 42 42 c8 45 | 45 87 22 20 5b 6c 65 74 |.E..BB.E|E." [let|
|00006110| 20 28 28 63 6c 2d 70 72 | 6f 67 76 2d 73 61 76 65 | ((cl-pr|ogv-save|
|00006120| 20 6e 69 6c 29 29 20 75 | 6e 77 69 6e 64 2d 70 72 | nil)) u|nwind-pr|
|00006130| 6f 74 65 63 74 20 70 72 | 6f 67 6e 20 63 6c 2d 70 |otect pr|ogn cl-p|
|00006140| 72 6f 67 76 2d 62 65 66 | 6f 72 65 20 73 79 6d 62 |rogv-bef|ore symb|
|00006150| 6f 6c 73 20 76 61 6c 75 | 65 73 20 62 6f 64 79 20 |ols valu|es body |
|00006160| 28 63 6c 2d 70 72 6f 67 | 76 2d 61 66 74 65 72 29 |(cl-prog|v-after)|
|00006170| 5d 20 37 20 28 23 24 20 | 2e 20 32 34 33 32 33 29 |] 7 (#$ |. 24323)|
|00006180| 5d 29 29 0a 23 40 33 35 | 32 20 28 66 6c 65 74 20 |])).#@35|2 (flet |
|00006190| 28 28 46 55 4e 43 20 41 | 52 47 4c 49 53 54 20 42 |((FUNC A|RGLIST B|
|000061a0| 4f 44 59 2e 2e 2e 29 20 | 2e 2e 2e 29 20 46 4f 52 |ODY...) |...) FOR|
|000061b0| 4d 2e 2e 2e 29 3a 20 6d | 61 6b 65 20 74 65 6d 70 |M...): m|ake temp|
|000061c0| 6f 72 61 72 79 20 66 75 | 6e 63 74 69 6f 6e 20 64 |orary fu|nction d|
|000061d0| 65 66 6e 73 2e 0a 54 68 | 69 73 20 69 73 20 61 6e |efns..Th|is is an|
|000061e0| 20 61 6e 61 6c 6f 67 75 | 65 20 6f 66 20 60 6c 65 | analogu|e of `le|
|000061f0| 74 27 20 74 68 61 74 20 | 6f 70 65 72 61 74 65 73 |t' that |operates|
|00006200| 20 6f 6e 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e | on the |function|
|00006210| 20 63 65 6c 6c 20 6f 66 | 20 46 55 4e 43 0a 72 61 | cell of| FUNC.ra|
|00006220| 74 68 65 72 20 74 68 61 | 6e 20 69 74 73 20 76 61 |ther tha|n its va|
|00006230| 6c 75 65 20 63 65 6c 6c | 2e 20 20 54 68 65 20 46 |lue cell|.  The F|
|00006240| 4f 52 4d 73 20 61 72 65 | 20 65 76 61 6c 75 61 74 |ORMs are| evaluat|
|00006250| 65 64 20 77 69 74 68 20 | 74 68 65 20 73 70 65 63 |ed with |the spec|
|00006260| 69 66 69 65 64 0a 66 75 | 6e 63 74 69 6f 6e 20 64 |ified.fu|nction d|
|00006270| 65 66 69 6e 69 74 69 6f | 6e 73 20 69 6e 20 70 6c |efinitio|ns in pl|
|00006280| 61 63 65 2c 20 74 68 65 | 6e 20 74 68 65 20 64 65 |ace, the|n the de|
|00006290| 66 69 6e 69 74 69 6f 6e | 73 20 61 72 65 20 75 6e |finition|s are un|
|000062a0| 64 6f 6e 65 20 28 74 68 | 65 20 46 55 4e 43 73 0a |done (th|e FUNCs.|
|000062b0| 67 6f 20 62 61 63 6b 20 | 74 6f 20 74 68 65 69 72 |go back |to their|
|000062c0| 20 70 72 65 76 69 6f 75 | 73 20 64 65 66 69 6e 69 | previou|s defini|
|000062d0| 74 69 6f 6e 73 2c 20 6f | 72 20 6c 61 63 6b 20 74 |tions, o|r lack t|
|000062e0| 68 65 72 65 6f 66 29 2e | 1f 0a 28 64 65 66 61 6c |hereof).|..(defal|
|000062f0| 69 61 73 20 27 66 6c 65 | 74 20 27 28 6d 61 63 72 |ias 'fle|t '(macr|
|00006300| 6f 20 2e 20 23 5b 28 62 | 69 6e 64 69 6e 67 73 20 |o . #[(b|indings |
|00006310| 26 72 65 73 74 20 62 6f | 64 79 29 20 22 c0 c1 c2 |&rest bo|dy) "...|
|00006320| 0b 5c 22 0c 42 42 87 22 | 20 5b 6c 65 74 66 2a 20 |.\".BB."| [letf* |
|00006330| 6d 61 70 63 61 72 20 23 | 5b 28 78 29 20 22 c0 09 |mapcar #|[(x) "..|
|00006340| 40 21 ab 88 09 40 4b a2 | c2 61 ac 87 09 40 0b b7 |@!...@K.|.a...@..|
|00006350| 41 ab 84 c4 c5 21 88 c6 | c7 09 41 40 c8 09 40 09 |A....!..|..A@..@.|
|00006360| 41 41 42 42 45 44 1e 09 | ca 20 ab 91 cb cc 21 ab |AABBED..|. ....!.|
|00006370| 8c 09 40 cd 0e 09 21 42 | 0e 0c 42 16 0c ce cf 09 |..@...!B|..B.....|
|00006380| 40 44 44 0e 09 29 44 87 | 22 20 5b 66 62 6f 75 6e |@DD..)D.|" [fboun|
|00006390| 64 70 20 78 20 6d 61 63 | 72 6f 20 63 6c 2d 6d 61 |dp x mac|ro cl-ma|
|000063a0| 63 72 6f 2d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |cro-envi|ronment |
|000063b0| 65 72 72 6f 72 20 22 55 | 73 65 20 60 6c 61 62 65 |error "U|se `labe|
|000063c0| 6c 73 27 2c 20 6e 6f 74 | 20 60 66 6c 65 74 27 2c |ls', not| `flet',|
|000063d0| 20 74 6f 20 72 65 62 69 | 6e 64 20 6d 61 63 72 6f | to rebi|nd macro|
|000063e0| 20 6e 61 6d 65 73 22 20 | 66 75 6e 63 74 69 6f 6e | names" |function|
|000063f0| 2a 20 6c 61 6d 62 64 61 | 20 62 6c 6f 63 6b 20 66 |* lambda| block f|
+--------+-------------------------+-------------------------+--------+--------+